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Now that you've mastered simple BASIC on your 
computer, what do you do next? 
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The answer Lies in this book. Tim Hartnell has 
covered the areas of computer programming which 
I think are most likely to be of interest to 
you, including moving graphics, the use of 
MODE(1), music and PEEK and POKE. 


As well as the 'Lessons', there are fifteen ог 
so games which you're sure to enjoy running. 
The appendix contains a useful glossary of 
computer words, and a very clear explanation of 
how computers in general - and yours in 
particular — work. 
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Now that you have simple programming under 
control, it is time to tackle some more 
difficult, but highly rewarding, areas. This 
book gives you the key. | 


Jeremy Ruston, 
1983 
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CHAPTER ONE — 
CREATING PROGRAMS 


Many books on programming suggest you start by 
drawing up а 'flowchart' — a combination of 
circles, diamonds and slanting rectangles, 
which sets out the path and operations the 
computer will follow to execute a program. Іп 
theory, this is fine, but in many cases the 
time and trouble involved may not be worth it. 


It is, however, essential that you know exactly 
what you want the computer to do before you 
start creating a new program, even if you're 
not quite sure how you're going to get the 
computer to carry out the task. 


Sometimes a rough sort of flowchart - perhaps 
Just a list of the main steps the computer will 
take, linked by Little arrows and loops — will 
help to clarify your thinking. It is also a 
good way to spot potential problems, Like the 
danger of setting up infinite Loops, ог of not 
specifying the nature of the computer's 
decisions exactly. 


I would Like to introduce you to a school of 
programming thought called 'Structured 
Programming'. Structured programming Says that 
programs need to be designed from the 'top 
down'. That is, you need to spell out in words, 
Long before you start actual programming, 
exactly what you want the computer to do, апа 
in what order. 


The first program in the book, TIC TAC TOE, was 
written to demonstrate structured programming 





in action. ТР you look at the beginning of the 
Listing, lines 130 to 170, you'll see what is - 
in effect -— the whole program in a series of 
subroutine calls. 


10 REM TIC ТАС TOE 
20 CLS 


90 DIM &(9) 

95 FOR Т=1 TO 9:8(T)20:50UND Т, 1: МЕХТ T 

100 T=RND(G) 

105 IF 13.7 THEN PRINT "ILL HAVE THE FIRST MOVE" 
110 IF Téz.7 THEN PRINT "YOU HAVE THE FIRST MOVE" 
Из РОК 221 TO 1000: 5 

120 IF T5.7 THEN 160 

125 IF INKEY$<>"" THEN 125 

130 60508 750 

140 GOSUB 480 

150 60508 670 

150 60508 750 

170 60508 480 

180 IF А(5}=0 THEN A(S)=1:60T0 150 


What do I mean Бу this claim, the  'whole 
program'? When I sat down to write this 
program, Т first Listed the steps the computer 
would follow, Like this: 


— decide who goes first 

— print out the board 

- check to see if anyone has won 

- let the human move 

- print out the board 

— check to see if anyone has won 

— let the computer move 

— go to the second item in the List 
and cycle through again and again 
until somebody wins 
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Once I had this List written, I changed most of 
the instructions into subroutine calls. Look 
again at the lines I mentioned. By following 
them through in the program, you'll see they 
correspond fairly closely to my initial List: 


10 ~ 115: Decide who will have first move 


120: If the computer is having first move, jump 
to line 160, which calls up the board print 
subroutine 


130: If not, this line goes to the subroutine 
From Line 750 which prints up the board 


140: Sends action to the subroutine from Line 
480 which performs the 'win check! 


150: Calls the subroutine from Line 670 which 
accepts the player's move 


160: Calls the board print subroutine 
170: Calls the win check subroutine 


180: Moves into the centre square if it's 
available, then goes back to 130 to cycle 
through again 


You'll see, in the next section, that a number 
of Lines end with GOTO 130. These are triggered 
when the computer has moved, and the program 
then goes back to 130 to Cycle again. Apart 
from the 'who will go first?' routine which was 
added later, the program proper is really held 
within those few Lines 130 to 170. These were 
written as subroutine calls, and each 
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subroutine Labelled, long before I had actually 
written the relevant subroutines. 


This meant that I could proceed step by step, 
debugging an isolated subroutine, before going 
on to the next. This is the real advantage of 
structured programming. Because the program 
consists of a number of discrete modules, each 
charged with performing а specific task, 
tracking down bugs is simplified, the flow of 
action through the program is relatively 
transparent, and subsequent modification of the 
program 15 easy. 


190 REM TO COMPLETE ROW/BLOCK 


220 IF B=1 THE 
230 IF B=2 THE 

240 IF B=š THE 

230 IF B=4 THE 

260 [=i 

219 IF АХ) =) AND ACOZD AND A(Z)=0 THEN A(Z)=1:60T0 130 

280 IF A(X)=D AND А(Ү)=0 AND A(Z)=D THEN А{Ү)=1:50Т0 0 

299 IF A(X)=0 AND ACY)=D AND A(Z)=D THEN A(X)=1:60T0 130 

300 IF В=1 THEN X=X+3;Y=Y+3;1=1+3 | 

510 IF Bz2 THEN XzX*1:YzYe1:2224 

320 IF C43 THEN C-C*1:60T0 270 

330 IF 8٦4 THEN В=В+1:60Т0 230 

540 IF ІК? THEN 0-10 210 

550 REM MOVE AT RANDOM 

560 B=] 

570 D=INT(RND(0) 9) 41 

380 IF А(С)=0 THEN A(C)=1:G0T0 150 

590 В=В+1 

400 IF 8421 THEN 370 

410 В=0 


зоо = = 





420 ВВ+! 

430 IF A(B)=0 THEN А(В) 1: 6070 130 
440 IF В<9 THEN 420 

430 GOSUB 750 

460 PRINT:PRINT"IT’S A DRAW" 

470 GOTO 650 


480 REM WIN CHECK 
490 FOR В=1 TO 4 


309 IF В=1 THEN X=1:¥=2:Z=3 

310 IF B=2 THEN Х=1: У24: 227 

420 IF B=3 THEN Xz1:Y-5:1-9 

950 IF B=4 THEN Х=3: 127 

340 FOR C-1 TO 3 

990 IF АС) =А (У) AND ACY)=A(Z) AND AO0 00 THEN 610 
560 IF В=1 THEN X=X+3;:Y=Y+3;:1=1+3 
570 IF B=2 THEN XzX41:YzY41:22241 
480 NEXT C 

990 NEXT B 

600 RETURN 


610 REM THE WINNER! 

620 PRINT 

530 IF ACK)=1 THEN PRINT "I'M THE WINNER!" 
540 IF А(Х)=2 THEN PRINT "YOU'RE THE WINNER!" 
650 FOR 0-1 TO 1000:NEXT 0 

660 GOTO 95 

670 REM PLAYER MOVE 

575 IF INKEY$<>"" THEN 675 

680 PRINT à 450,"ENTER YOUR HOVE" 

690 A$-INKEYS 

700 IF A$C"1" OR A$2'9" THEN 690 

710 8:۷۸) (A$) 

720 IF A(B)<>0 THEN 690 

723 PRINT 3 450," Е 

730 А{В)=2 

740 RETURN 








750 REM PRINTOUT 
740 PRINT 2 64, 
780 PRINT "123 " 


45 6 - X ~- 


790 FLA =0 _ а 
800 FOR B=1 TO 9 2] "ow - = X 4273 0 x о 
810 IF A(B)=0 THEN FLA =! | 
820 IF А(В)=0 THEN PRINT " - "; два "LL а 
930 IF A(B)=1 THEN PRINT " O ";:50UND 1,1 
840 IF A(B)=2 THEN PRINT " X "::50UND 15,1 во ey ee: g 
850 IF B=3 THEN PRINT:PRINT:PRINT "456 "; 
B40 IF Веб THEN PRINT:PRINT:PRINT "789 '; га у m x d 
870 NEXT B 
880 IF FLA =0 THEN 460 б. 4 5 6 ~ X = 
890 RETURN N 
| 789 uH K 
Here's the program in action: | | Бед "DU B 
T. | - % 
4 5 ó = X - 
aa = — — 
4 D 4 3 e қ н з n 7 6 o Ж (1 А 
ا‎ Қал жа пи о 
Š 4 5 6. - X - 
Ц { GR “а ы 
| 2 i dw НК ~ 
| 789 - = ~= 
| Доре хо X 
| је а - = E за Ü x.B 
| A du X = 4 5 6 ива 
| тво ік жө. 3% 789 Ұй. x 
| = - ~- | 


c 


| 4 5 = X - | 
|| IT'S A DRAW! 
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I'M THE WINNER! 


I urge you to follow a sequence of steps such 
as those outlined above when you're writing a 
program from scratch. It may not be necessary 
to do so if you're working on a fairly Simple 
program, ог are adapting from a magazine or 
book. Even then, if you're working directly on 
the computer, it is handy to keep a notebook by 
you to record such things as that you've 
assigned A$ to the player's name. 


GETTING THINGS ON TAPE 


If you're writing a program directly on the 
keyboard, and you want to add a subroutine 
which will eventually be at the end of program, 
give it a very high Line number. It can easily 
be renumbered Later if you like. This is far 
better than having to jump over a subroutine, 
as the program expands, with an ugly GOTO. 


You should resist the temptation to put all 
your programs on a single Cassette, one program 
after another. The frustration you'll 
experience searching through the tape — even if 
you've identified each program with a voice 
Label — to find a particular program, is just 
not worth the trouble. 


ia 











бо to your computer store, and get a set of С- 
19 or C-20 cassettes. Put just one program оп 
each cassette, with two or three copies of each 
one in case your recording gets damaged, 
accidentally erased or won't Load. 


Write the name of the program on the cassette 
and on the cardboard insert. You'll find this 
makes it very easy to Locate the program you 
want. As well, as your library of programs 
grows, it will give you quite a feeling of 
accomplishment to see all those programs ranked 
side by side. It will impress your family and 
friends as well, who will believe after 
visiting you and playing with your computer 
that you're some kind of natural computer 
genius (which you probably are). 
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CHAPTER TWO — 
MOVING GRAPHICS 


There is Little doubt that moving graphics 
games, such as the ones you see in arcades, are 
among the most exciting things you can do with 
your computer. Although the programs we create 
im this section of the book will be in no мау 
as sophisticated as arcade games, the 
techniques given will allow you to write moving 
graphics games of your own, апа will give you 
an insight into arcade-standard programs. 


THE SECRET OF ANIMATION 


It is simple to make something appear to move 
on the computer screen. You put a shape — such 
as the letter А — on the screen in a particular 
spot, and hold it there for a moment or two. 
Then, you print a blank space where the A was, 
and at the same time, reprint the A a short 
distance away from its original position. 


This process is repeated over and over again, 
and it creates the impression that the object 
is moving. That's all there is to it. Put one 
moving object under your control, and another 
one under the computer's control, апа you have 
the raw ingredients of a game. Let's see how 
it works in practice. 


USING PRINT e 


As you know, the computer's screen is 32 
characters across, and 16 Lines down. The PRINT 
9 command works by counting the very first 
position on the screen (the one in the top, 
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Left hand corner) as number 0. It counts across 
the line, and then gets to position 31 at the 
end of the Line. Position 32 is the first one 
on the second Line. This goes right through the 
screen with the final position (in the bottom, 
right hand corner] as position number 511. 


We'll start by placing something on the screen. 
Enter this brief program and run it. When you 
see the question mark appear, enter two 
numbers separated by a comma. The first is the 
number of lines down you want the object to 
appear, and the second is the number of spaces 
you want the object to be across the screen. 
The first number must be between Ü and 15, апа 
the second number between 0 and 31. 


Enter the program, гип it for a while, then 
return to the book: 


10 REM PRINT 9 DENO 

20 CLS 

50 INPUT А,В 

40 PRINT 9 (321A*B), "А" 
90 PRINT 9 0,; 

60 GOTO 30 


Note the use of the formula in Line 40, which 
changes the numbers entered as down and across 
co-ordinates into а single number which the 
PRINT @ command can use (Later on we'll use a 
similar formula for PEEK and POKE, but we'll 
stay with PRINT @ for the time being): 


PRINT G (32*A + B) 


You'll find you're using this formula, or а 
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similar one to it, time and time again in 
programs. 


We'LL now use PRINT @, and our formula, to 
create a bouncing ball program. NEW the 
computer, and enter the following program, then 
return to the book for a discussion оп iT 
You" LL find that the techniques used for 
animating this ball will be used in just about 
every moving graphics game you write. So, it is 
worth taking the trouble to understand exact Ly 


how it works, so you can apply the techniques 
to your own programs. 


10 REM BOUNCING BALL | 


15 CLS 

20 ñ=0:B=11 

30 Y=1:1=1 

40 ЕВ 

80 PRINT 9 (3248 + A), "0" 
70 ВВ+) 

80 ۸+۷ 

90 IF ۸)2 THEN Y=-Y 
100 IF ۸+30 THEN Y=-y 
110 IF B¢2 THEN Y=-x 
120 IF 8314 THEN X=-} 
130 6070 40 


When уои run this, you'll see the ball appear 
on the screen, bouncing from the sides, and 
Leaving a trail of itself behind. th 
deliberately did not erase the ١٢ ball in 
this program, so you could see that it was just 
a series of the same character being printed on 
the screen. 
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Now, add this Line, and see what happens: 
125 PRINT à (321EB + EA), "." 
you'll see something 


When you run the program, 
Like this on the screen: 


As you can see, it leaves a trail of dots 
showing where the ball has been. Remove the 
dot from between the quote marks in line 125, 
and run the program again, to see a true 
bouncing ball. 


The program gives a very good impression ОР 


a moving object. This program, as I said 
earlier, demonstrates а number of key things 
about moving graphics programs, so we'll go 


through this program Line by Line, 
what each Line is doing. 


explaining 
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15 — clears the screen 


20 — sets the start position of the ball, at 7 
across and 12 down 


30 - sets X and Y which control the change іп 
position of the ball between each movement 


40 - sets two variables used to erase the old 


position. These are called EA (for 'erase А!) 
and EB ('егазе B). You should always use 
variable names which suggest the function the 
variable is performing, as it makes it much 
simpler Later on when you're going through a 


program. Note (and this is important) EA and EB 
are set equal to A and B just before the ball 
is printed at 32*B + A (Line 60) and before A 
and B are modified (Lines 70 and 80) 

60 — this prints the ball on the screen 

70 — B (the down position) is changed 


80 — A (the across position) is changed 


90 this checks that the A position is not too 
far to the Left, апа if it is, changes Y to 
minus Y (causes the ball, next time it comes to 
this Line, to bounce off the Left hand side of 
the screen) 


100 — does the same for the right hand side 
110 — checks the up/down position, апа if the 


ball is too close to the top of the screen, 
changes X to minus X which, as you'd guess, 
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causes the ball to bounce down from the top of 
the screen 


190 - does the same for the bottom of the 
screen 


425 - prints a blank on the 'old' position of 
the ball (that is, the position designated by A 
and B before they were modified by Lines 70 and 


80) 


130 - sends action back to Line 40, where EA 
and EB are set equal to the ball's new 
position, before it is reprinted in the new 
position with Line 60 


Although this explanation is fairly Long (апа 
much Longer than the program it is explaining) 
it is worth reading it through carefully. Once 
you understand it, you'll be well on the way to 
writing your own programs. 


Now, modify the program so it is as follows. In 
this version, there is а little object at the 
bottom of the screen which is your 'bat' and 
you have to get the ball to bounce off 16 to 
keep the ball moving. You use the 'Z' (to move 
Left) and the 'M' (to move right) keys to 
control the bat at the bottom. 


10 REM BOUNCING BALL 11 
15 ШО 


20 A=6:B=11:F=11 

50 У21: 12] 

40 ЕА=А:ЕВ=В 

50 PRINT 2 (477+F)," "СНА 131); ٭‎ 
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60 PRINT 9 (3248 + A), "0" 

70 R=B+Y | 

80 ۱۷ 

82 AS=INKEY$ 

85 IF A$z"2* AND Ру; THEN F=F-2 
86 IF A$-"M" AND F(29 THEN Ғғ? 
90 IF AC2 THEN Ү--Ү 

100 IF A330 THEN Y=-Y 

110 IF 8)7 THEN X=-¥ 

120 IF B3 AND ABS(F-A)<3 THEN Y--Y 
121 IF В=16 THEN END 

125 PRINT 3 (324ЕВ + ЕА), * " 

130 GOTO 40 


Now, this is not a particularly satisfvin 

8 probably doesn't even der ана ЧЕ oH 
game') but it shows some extra ingredients 

you'll be using in moving graphics games. In 

this Program outside interaction 15 brought 

into play for the first time (you moving the 

bat) and the computer responds to this (keeping 


the game underway if the bat is in i 
t 
position). ا‎ 


Here's what the extra Lines do: 


20 -F is the position of the bat across the 
Screen 


50 — this prints the 'bat' (and you can use the 
graphics character direct from the Y key 
instead of CHR$(131) and note there must be two 
spaces within the quote marks on either side 

to 'unprint' the bat as it moves] 


82 — this reads the keyboard, with INKEY$, and 
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sets the result of this reading equal to А5 


i if you are 
— i $ equals "Z" (that is, 
i ine as "Z" key) and F is greater than 3i 
xli value of Е is reduced by 2 


if A$ equals "М" апа Е is less than 29, 
= 1 | 
гы the value of F is increased by 2 


. | | . | . | 


your wishes.) 


490 - if B is greater than 18 (which ات‎ 7 
|| is near the bottom of the scree سی‎ 
s of the bat is checked, and if 1 


EIU ts a bounce occurs and the game 


close to the ball, 
continues 


424 - if the ball has missed the bat, this Line 
halts the program 


i inspiring or 

is is not, as we said, a very in 3 

t Жашы, but with a few “ime РТ 
ear be given a bit of value. Bee ete es 
reads as follows, and play with it a : 


10 REN BOUNCING BALL 111 
12 REM * SQUASH’ 


15 CLS | 
17 PRINT 3 224, Ж 

18 FOR J = 256 TO 448 STEP 54 

19 PRINT 3 d,” 

20 B=6;:B=11:F=11 

25 5С=1 

30 Ү=1:1=1 
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40 EA-A:EB-B 

50 PRINT 9 (4774F)," ";CHR00131) 9 ° 
60 PRINT 9 (3248 + А), "4" 

70 B=B+X 

80 А=й+ї 

82 ۸6-9 

85 IF A$="Z" AND ورع‎ THEN Ғ-ғ-? 

86 IF A$z'M" AND 2624 THEN F-F42 

90 IF ۸)7 THEN Ү=-ү 

100 IF 8223 THEN Y=-Y 

110 IF B(9 THEN Х=-Х 

120 IF В=15 AND ABS(F-A)<2 THEN Y--Y 
121 IF Bz1& THEN END 

122 IF Bz15 THEN SC=SC+347:PRINT 2 68, "SCORE IS ۶٤ 
125 PRINT 9 (324ЕВ + ЕА), " " ) 5 
130 GOTO 40 EAT. 


Again you'll have to use the "Z" and "M" keys, 
but this time you have a much smaller 'playing 
field' and there is a bit of a challenge to the 
game. You might like то Spend some time 
playing with this program, modifying it as you 
see fit, before returning to the book to 
discuss moving an object up and down, as well 
as to the right and Left, on the screen, 


TRAPPER AK] 


We now һауе a program which is difficult (and 


very enjoyable) to play, as the 'X! is stalked 
by the prehistoric 'G', 


In this program - TRAPPER - you are the "X" ang 
the computer controls the "а", You use the 
following keys to move yourself around the 
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screen, trying to stay out of the computer's 
clutches for as long as possible: 


A — to move up 
Z — to move down 
M - to move Left (see arrow above this key) 


— to move right (see arrow) 


10 REM TRAPPER 
15 CLS: T=0 
20 Bñ=5;BD=5 
50 ТН-15:ТУ-15 
40 EA-BA:ED-BD 
30 ٢۷ 
60 PRINT 9 (S21ED4EA)," " 
70 PRINT а (SZ13TV4TID," " 
80 AS=INKEY$ | [| 
90 IF A$="A" AND BD>2 THEN BD=BD-1 
100 IF A$z"7" AND BD(14 THEN +1 
110 IF A$="," АМО BACSO THEN BA=BA+! 
120 IF A$z"M" AND BA?2 THEN 84-86-1 
130 PRINT 9 (32213BD4BA) , "X" 
35 IF КАО(0) 7,5 THEN 150 
140 IF 80:۱۷ THEN ۷۷۶+ 
145 IF RND(O)>.3 THEN 160 
190 IF BDXTV THEN ТУ=ТУ-1 
Ja IF RND(0)7.5 THEN 170 
150 IF BACTH THEN ТН=ТН-1 
170 IF BA>TH THEN TH=TH+1 
180 PRINT 9 (3223TV4THJ "9" 
185 T=T+1 
120 PRINT 9 0," TIME ELAPSED'T 
210 IF 80-1۷ AND BAZTH THEN SOUND RND (0) 420, 1: 6010 210 
220 6010 40 


— d 
کے‎ 
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There 15 no need to go through this program 
Line by Line, as I'm sure by now you've got a 
pretty good idea of what effect the various 
parts of the program have. The main difference 
between TRAPPER and SQUASH is that we are now 
moving in two dimensions, and the thing which 
is trying to trap us can 'sense' (using Lines 
135 to 170) just where we are. The Lines 135, 
145 and 155 are just to give you a chance. Take 
them out, and you'll be dead within 10 moves, 
every single time. 


This program points up one of the disadvantages 
of working in BASIC, especially with PRINT G — 
it is fairly slow, and everything we add to a 
program slows it down further. Fortunately, 
there is another мау to move things on the 
screen, and we'll turn to that now. 


PEEK and POKE 


Although PEEK and POKE seem to inspire fear 
into programmers when they first come across 
them, there is no need to worry. They can be 
used in almost exactly the same way as PRINT @ 
has been used. | 


There аге, however, two advantages of using 
PEEK and POKE over using PRINT G: 


– POKE is faster than PRINT @ 

- PEEK can be used to find out what is оп 
the screen in a particular position. This is 
ideal for discovering whether or not an alien 
has been shot, ог the plane you are flying has 
hit the side of a mountain 
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When you POKE something to the screen, you put 
it on the screen. When you PEEK, you аге 
Looking to see what is on the screen at the 
particular position. That's just about all you 
have to remember. 


If you have two co-ordinates A (for across) and 
D, you PRINT @ them, as explained before, using 
the formula 32*D + А. To POKE something into 


place, you use a Line Like: 
POKE 28672 + 32*D + A, X 


We generally use 28672, the location of the top 
Left hand corner of the screen, ог 28736, the 
position two lines below it. The X is the 
character number, and this is the character 
which will appear when we POKE directly to the 


screen. 
You'LL remember that we used a space cn") in 
PRINT @ to wipe something out. The equivalent 
in this case is the number 32. So... 

POKE 28672 + 32*D + A, 32 

...15 the equivalent of ... 


PRINT @ (3280 + АЈ," " 


If you want to find our what is at a particular 
address, you use PEEK as follows: 


ТЕ PEEK (28672 + 32*0 + A) = .... THEN .... 


Now, PEEK and POKE are simpler to use than they 
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may appear at first sight. Т suggest you enter 
the following programs, all of which use the 
two commands, and follow through the - Listings 
carefully. This will allow you to Learn about 
the use of the two words more quickly than any 
other way. 


MESOZOIC ATTACK 


The Mesozoic Era was when dinosaurs roamed the 
earth. This program is a PEEK/POKE version of 
TRAPPED (although only POKE is used, to break 
you into the new words gradually). Note that 
although up and down are the same keys ("A" and 
"Z") right and Left are Фотев) ап 0 
(right). It is easy to remember these, ав the 
greater than and less than symbols point in the 
relevant directions. 


10 REM MESOZOIC ATTACK 

15 Н5=0 

20 [15 

$0 5650 

40 НА=1:Н0=1:0=15:4=30 

90 EA=HA: ED=HD 

60 IF ІМКЕҮФ= "А" THEN НА=НА-1 
70 IF INKEY$z"I" THEN HA=HA+I 
BO IF INKEY$z"." THEN HD=HD+1 
70 IF INKEY$="," THEN HD=HD-1 
71 ТЕ ٦۸۰1 THEN НА=1 

72 IF НА? 19 THEN НА=15 

7$ IF 10٦1 THEN HD=1 

74 IF 8031 THEN HD=31 

۶5 8108 

190 5В-28872 + +8۵ 

110 IF SR=H THEN GOTO 1000 
115 POKE 2 
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120 POKE SB, (38€ INT(RND (0) $2) ) 
130 Н=28672 + 321HA*HD 
140 IF SB=H THEN GOTO 1000 
145 POKE ЕН, 32 
150 POKE H,88:EH=H 
150 IF D<HA THEN +1 
| 165 IF RND(0)5.3 THEN 180 
170 IF DHA THEN D=D-1 
175 IF RND(O)>.3 THEN 190 
180 IF ACHD THEN А=4+1 
190 IF AHD THEN А=А-1 
200 50=50+1 
210 PRINT 3 20," 11٤ 
240 IF 0<1 THEN 0=1 
250 IF 0215 THEN Dz15 
260 ТЕ А‹1 THEN A=! 
270 IF ۵31 THEN 4231 
275 IF SB-H THEN GOTO 1000 
280 GOTO 50 
1000 POKE 5B,32:POKE H,32 
1001 РОКЕ ЕВ,52:Р0КЕ EH,32 
1002 FOR 1-1 TO 19 
1003 POKE SB, (BO+INT(RND (0) #20) ) 


1010 SOUND RND(20)1,1 

1020 МЕХТ J 

1030 PRINT 9 226,'Y0U SURVIVED FOR"; SC 
1055 IF SC2H5 THEN Н5=5С 

1040 PRINT 9 258, "BEST 50 FAR 15"; Н5 
1050 FOR T= 1 TO 500: МЕХТ T 

1060 GOTO 20 




















U-WING SPACE BATTLE 


In this program, you pilot your Little V-wing 
space craft around the screen, trying to гип 
over the numbers which appear on it. Each 
number will арреаг for a limited amount of 
time, and if you run over it, a score related 
to that number is added to your growing tally. 











PEEK is used here for the first time, in Line 
190, where it Looks at the position where your 
space craft is about to be POKEd, апа if it 
finds a number there, increments your score. 









10 REM V-WING SPACE BATTLE 
20 CLS 


50 55-0 

100 FOR Z= 1 TO 20 

110 5128756: №=22:[=-32 
120 POKE 28715*INT(RNI 
150 W=SL 
140 AS=INK 
150 1 




















700) 19) +49 













(56 +1:%=62 
ЕМ SL=SL-1:M=60 

WY AND SL>28736 THEN SL=SL-32: 
F A=" AND 51429151 THEN SL=SL+32: 
) Q-PEEK (SL) 
200 IF 0248 AND 0558 THEN 88-10 980 
205 РОКЕ W,32 
210 POKE SL,M 
220 IF RND(0)4.99 THEN 130 
230 COLOR,1:FOR 7511020; МЕХТ T:COLUR, 0 
980 CLS:PRINT 9 0,"SCORE ";5С;* ";20-1;" SHIPS LEFT" 
982 COLOR, INT (RND (0) £2) 
985 SOUND RND(0)125«1,1: IF RND(0)2.6 THEN 985 
990 NEXT 1 






=] 
=22 















1000 PRINT 9 û, "THE BATTLE IS OVER", "YOU SCORED "۶ 
1100 COLOR, INT (RND (0) #2) 
1120 GOTO 1100 


BREAKOUT 

As you can see, the programs are getting more 
| involved. BREAKOUT produces a screen picture 
|| Like this: 


| ЕЕ EEEE HE ВЕНЕ FE FE FE FF HE FF EF EF EF ВЕНЕ EE FE FE FE FE FF FF FF FE FE EF EF ЕН 









АА A K XOX X X X K X X X X 
; Ea ща Ж.» Ка К.К. 
E X oa Ка X. Kw Х 
x X А 


~- 2 nz < rar ow — 
——vW r — љут 






THE GAME 


YOU SCORED ^85 


i eie Ea 


SCORE 5244 ط9٦‎ 
| You have to knock as many bricks (the X's) o 
of the way as you can, trying to get through to 
the row of hash symbols near the top of the 
screen. РЕЕК is used (see lines 140 through to 
146) to check whether you've hit a brick (140, 
144 and 146) or the hash symbols (145). Your 
bat at the bottom of the screen is POKEd into 
position by Lines 225 and 230 (with the two 
POKE 32's clearing each side of the bat). 
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10 REM BREAKOUT 
19.628 


20 ۲۸۱۷۲" WH HiHi 

29 PRINT LY БАХ ТЕ КЕ ج8‎ + 

OU ۲5۱۹۲ E W 8 fa da Fe N Be! 
eae YT. FE لے‎ ЕТІ уз 

J КЕ ЕРЕ rane у > 

60 СХ=10: КЕМ NO. OF BALLS 

70 BA=INT(RND (0) #6)+6: КЕМ START OF BALL ACROSS 
30 В0=8: REM START OF BALL DOWN 

82 F=5 *INT (RND(O)R10):REM START OF BAT ACROSS 
85 Х=1, 1: У2] 

70 EA=BA:ED=BD:REM ERASE BALL 

100 POKE 28572* (321ED4EA) , 32 

110 POKE 28872*(321BD4BA) , 48: REM PLACE BALL 

По EA=BA:ED=BD:REM ERASE BALL 

120 IF ВА>50 OR ВАС! THEN 60508 1000 

130 IF 80۶11 THEN GOTO 2000 | 
140 IF PEEK (28640+321В0+ВА) 524 THEN 50508 5000: 6070. 150 
144 IF PEEK (28640+52180+88+1)524 THEN 60508 5000: 6070 150 
145 IF PEEK (286404321BD*BA)-35 THEN GOTO 4000 
146 IF PEEK (28540*3218D*BA-1)-24 THEN GOSUB 3000 
150 BA-BA*À 

160 6-1۰ 

200 758 

210 IF A$="2" THEN F-F-1 

220 IF B$z"M" THEN F=F+1 

222 IF РК] THEN F=1 

225 IF F330 THEN F=30 

229 9529088+Е 

230 POKE 8-1,32:POKE 5+1,32: РОКЕ 3,140 

500 GOTO 100 

1000 Xz-X 

1200 RETURN 

2000 IF ABS(F-BA)?2 THEN 2500 

2003 Yz-Y 

2200 GOTO 140 
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2540 BA-INT(RND(O)5)*6:REM START OF BALL ACROSS 





2500 СХЕСХ-1 
2505 IF СХ=0 THEN PRINT 2 288,"THE GAME IS OVER" 
2505 IF CX=0 THEN PRINT 9 352, "YOU SCORED ۶٤ 
2510 PRINT 9 480, "SCORE ";50: " BALLS "СХ 

520 PRINT 2 415," : 
2530 PRINT 9 384," : 
2535 IF CX=0 THEN 4020 

2537 FOR T=1 TO 10:50UND 7 


2550 BD-8: REM START OF BALL DOWN 
2560 Е=5 «INT (RND(O)#10):REM START OF BAT ACROSS 
2570 GOTO 90 

3000 POKE (28640+328BD+BA) , 32 

3001 IF RND(0)2.8 THEN POKE (285404321BD4BA41) , 32 
3002 IF RND(O)<.1 THEN POKE (2854043218D4BA-1) , 32 
3010 7 

3020 PRINT à 480, "SCORE "۴ 

5050 COLOR, 1:FOR Т=1705: NEXT: COLOR, 0 

3035 ۷٠-٢ 

1040 RETURN 

4000 PRINT 3 288,"YOU HAVE DONE IT!" 

4010 PRINT 9 352,"YOU SCORED 67 

4020 REM END OF GAME 

4025 FOR T = 10 TO 30 

4030 SOUND T, 1 


4040 NEXT | б 
4050 RUN : 


this gripping game, you have to work 


shown as the $ in 


PLAGUE SPOT 1 
In B 


yourself (a graphics symbol, 


the sample printouts) from the top left папа 
corner of the screen to the bottom right hand 
one. за 

The plague spots (the X's) аге constantly 
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increasing as the game goes on, and each time 
you hit one your score will increase. You have 
to get to the safe spot in the bottom right 
hand corner with the Lowest possible score. 


Here are a few 'snapshots' of it in action: 


S30 AXKXXXXXXXXXXXXXXXXXXXXX 
X X X X 
XXX X X X я 
X XX X X X X X 
X X X X X 
А X X X 
X X К X 
X X X X A 
X X A 2 X X 
XX X $X X X X 
X X X X X ХХХ 
X X A X X X 
X > AW X 
X X 

XX 9650 XXXXXXXXXXXXXXXXXXXXXXXX 

XXXXXXXXX x X X X 

A X X X X д 

X XX K X A Ж X 

X X X X X 

X X X 

X Á А X 

X X XX X 

X X X $ X 

X X X X X X. X 

X X X иа аа 

X X X X X 

X X XX X 

X X 

XX X AX XX XX ХХ 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXSD 
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There is a high score feature, so you can try 
and get а һеїїег (that is lower) score each 
round. You'll find that adding a high score 
touch Like this one will enhance many games, 


10 REM PLAGUE SPOT 
15 Н5-9999999 

20 CLS 

30 50=0 

35 Вени 

40 PRINT 9 0, "ХХХ ХХХ ХХХ ХХХ ХХХ ХХХ ХХХ ХХХ ХХХ 

50 FOR 1-31 ТО 447 STEP 32 

bû PRINT "X | or 

70 NEXT J 

BO PRINT 9 480, "ХХИХХХИХХХУХХХИХХХИХХХУХХХИХ S88; 

110 9128736 

120 FÜR Т=1 TO 30 

130 2228715* INT (RND (0) 1468) 

140 РОКЕ 1,24 

150 NEXT T 

140 W=SL 

170 4-9 

175 IF ВЕОМА" AND A$O"Z" AND АРСО", AND ASC)". " THEN AS=BE 
176 56-1 

180 IF Аф=", " THEN SL=5L+1:IF PEEK (SL)=24 THEN GOSUR 1000 
190 IF A$="," THEN SL-SL-1:IF PEEK (SL)=24 THEN GOSUB 1100 
200 IF AS="Z" THEN SL-SL*32:IF PEEK (SL)=24 THEN GOSUB 1200 
210 IF А%="А" THEN SL-SL-32:1F PEEK (SL)=24 THEN GOSUB 1300 
215 IF SL {28672 THEN 77ا8‎ 
216 IF SL 229183 THEN SL=28672 
219 IF PEEK(SL)-38 THEN 5000 
220 POKE W,32:POKE SL, 137 

230 POKE 28715*INT(RND (0) 1468) , 24 
500 BOTO 160 

1000 SCUND 1,1 

1010 SL-SL-1 

1020 +1 





30 
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1030 8010 1500 
1100 SOUND 4,1 

1110 SL=5L+1 

1120 8+1 

1130 GOTO 1500 

1200 SOUND 8,1 

1210 SL=SL-32 

1220 86+ 

1300 SOUND 12,1 

1310 SL=SL432 

1320 86+1 

1500 PRINT 9 0, 1000-1015" = 

1505 IF 50799 THEN 5000 

1510 RETURN 

5000 FOR T=1 TO 5 

5005 PRINT 7,۶۲۰ 

5010 PRINT 9 508, "^^^" 

5020 SOUND RND(19) 41, 1 

5030 PRINT à 476, "^^^" 

5040 PRINT 2 508, "#44" 

5060 NEXT T о 

5070 IF 80:118 THEN HS=SC 

5090 PRINT à 192," YOUR SCORE WAS "5 1000-1086 
5100 PRINT а 320," BEST 50 FAR IS ";1000-101HS 
5120 FOR T=1 ТО 15:80UND T, 1: NEXT 

5130 GOTO 20 


Finally, here are the character codes to use 
for PEEK and POKE: 


0 @ 16 P 32 48 0 
1 А 17 ü 33 | 49 1 
2 B 18 R 34 " 50 2 
з с 196 35 # 51 3 
4 D 20 T 36 $ 52 4 
5 Е 21 U 37 $ 53 5 
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CHAPTER THREE — 
USING MODE 1 


As you know, your computer is equipped with two 
graphics modes, MODE (0) (which it 15 іп 
automatically when you first turn the computer 
on} and the high resolution mode, MODE (1). 
We've been using MODE (0) to date, so it's 
about time we had a Look at the other one. 


SPIROGRAPH PATTERNS 


Spirograph patterns аге formed by both the 
interior and exterior epicycloid curves. One of 
the formulae for such a curve is given in Line 
100 of the first program in this Section, in 
which A is the radius of the Large circle, B is 
the radius of the small circle, and Н is the 
point on the circumference of the small circle. 


The program here chooses A, В and C at random, 
then traces out the shape on the screen. The 
finished pattern is held for a moment, then the 
process begins again. 


If you don't Like a particular pattern which is 
forming (ог you can't see one at all, which 
happens with some combinations), just press any 
key and a new design will begin. Some of the 
results of this program are very, very 
attractive indeed. You'll find the patterns 
Look best if viewed from a Slight distance. 
This program is based on one written by Keith 


Hewson, 
10 REM SPIROGRAPH 


15 PI23.141592 
20 MÜDEI1) 
25 COLOR INT (RND(0) $3) 42 
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50 IF INKEYSC?"" THEN 30 

40 A=INT(RND (0) $15) +1 

90 BzINT(RND(Q) TIS) +1 

60 H=INT(RND (0) #15) +1 

70 FOR 950 TO SEPI/1.7 

80 FOR І-0 ТО 21PI STEP ۵ 

90 X={A-B) COS (1) +Н#С05 ( (А-В) 81 /B+J) 
95 IF INKEY$<¢>"" THEN RUN 

100 Y=(A-B) SINCI) +HESIN( (A-B) #1/8+Ј) 
110 SET ((60+Х), (32+7)) 

120 NEXT I 

130 NEXT J 

140 FOR Т=1 TO 1000 

150 NEXT T 

160 RUN 


LISSAJOUS FIGURES 


Jules Antoin Lissajous, a French physicist who 
Lived from 1822 to 1880, made a study of the 
movement of particles under the action of 
periodic motions acting at right angles to each 
other. He discovered that bodies moving in this 
way trace intricate patterns as they dance 
around each other. This program, based on one 
written by Frazer Melton, shows what Lissajous 
discovered. 


As in the SPIROGRAPH program we've just looked 
at, SET is used to plot the points on the 
screen, tracing out the path of the sum of the 
periodic motions. 


The delightful design produced on the screen 


can be used in a number of ways. Опе way is to 
compare two frequencies. If they are the same, 
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the program will draw a circle. ТР they are 
different, the number of points where the 
curve touches either the vertical or horizontal 
edge is the ratio of the two frequencies. If 
f1 is the known frequency, then the unknown 
frequency (f2) is equal to the number of times 
the curve touches the vertical edge of the 
confining box, multiplied by the known 
frequency. 


Here are some examples of the effects the 
program can produce. ОР course, they are far 
more attractive in color on the screen than the 
printouts suggest. 


k. 
k 
سے‎ 
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are in single figures, and correspondingly more 
as the size of the frequencies increases. The 


| ux “> higher the step number, the greater the 
JUL ав” ^ resolution of the final figure. 
Г - * zs = x Enter this program into your computer: 
| 5 = SL. 
x 
= Б 7 в 10 REM LISSAJOUS FIGURES 
P 5 a в“ "s 20 REM FRAZER MELTON 
Г и 5, گے‎ " 2 22 PI=3,141592 
Fa = ы... 29 CLS 
ми. x № 30 INPUT "STEPS":5 
zs" За қ s "и 54 REM ENTER '0' TO END 
4 шыты | 


55 IF 5=0 THEN END 

40 INPUT "Y FREQUENCY": У 
50 INPUT "X FREQUENCY": X 
80 MODE (1) 

82 Z=INT(RND(0) 43) +2 

85 COLOR (7) 


в €" «а я sz 70 FOR А=0 TO 2XPI STEP PI/S 
- gs я , za ж 100 SET ((204518(А4У) +60), (20805 (03) +30)) 
ғ = Е 5 110 NEXT A 

и“ я қ "a n 
на 5 = ш "a 120 FOR Tz1 TO 2000:NEXT 

Ж: ЕСІ 8 
= ú — Xx . . 130 RUN 
ще к” 5 а mt 3 
E 

к,” =, . * 3, я Try the following sample values with this 
>, 7^, 1... program: 

в 


STEP Ү FREQUENCY Х FREQUENCY 


ü ве“ ти ; | 
= 

"Вия Ë Ë Е Ë = a 25 7 | 
There are two versions of the program. The 2 я е я 
first опе allows you Бо enter your own choice a » "uc 
of STEP and X and Y frequencies. STEPs سا‎ ae 5 A 
be around 50 or more if the X and Y frequen em А 3 
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500 2-13 6 == 
200 В 1 
250 3 8 
500 20 8 
500 15 20 


The next program chooses the two frequencies at 
random, between one and 20. The step size is 
fixed at 500, but there is no reason why you 
should not change that if you wish. There is a 
slight pause at the end of each figure and then 
the screen clears, and a new figure begins. 


10 REM AUTO-LISSAJOUS 

20 REM FRAZER МЕСТОМ 

22 82 

50 5-500 

40 YzINT(RND(O) 120) +1 

50 Xz INT(RND (0) 120) +1 

80 MODE (1) 

82 I-INT(RND(0) t3) +2 

85 COLOR (7) 

90 FOR А=0 ТО 24РТ STEP Р1/5 
100 SET ((2015IN(ATY) +50), (204005 (8313) +30) ) 
105 IF INKEY$<>"" THEN 40 
110 NEXT А 

120 FOR Т=1 TO 2000: NEXT 

130 60T0 40 


This final version is simply a modification of 
the preceding program, in which the screen does 
not clear between each image, 50 eventually 
you'll end up with a very complex overlay of 
designs. 


——" 








10 REM AUTO-LISSAJOUS 

20 REM FRAZER MELTON 

21 REM MOVE LINE 80 TO 25 50 WILL NOT ERASE 
22 Р1=3,141592 

29 MODE (1) 

30 5-500 

40 YzINT(RND(Q)120) +1 

30 KzINT(RND(0)120) +1 

82 Z=INT(RND (0) 13) +2 

85 COLOR (7) 

70 FOR А=0 TO 2181 STEP PI/S 

100 SET ((201S5IN(AtY) +50), (208005 (А8Х) +30) ) 
105 IF INKEY$<¢>"" THEN 40 

110 NEXT A 

120 FOR Т=1 TO 2000:NEXT 

150 БОТО 40 


As you know, the SET command is used to place 
dots of light on the screen at а position 
specified by the numbers which follow the 
command. 


SET (X,Y) places the dot at Location X (which 
can be zero to 127; the distance across the 
screen from left to right) and Location У (а 
number from zero to 63; the count down the 
screen]. 


The next program, MARTIAN LACE, uses SET to 
produce a balanced (and highly attractive) 
picture on the screen. As you'll see when you 
run it, the design evolves perpetually. 


10 REM MARTIAN LACE 
50 MODE(1) 

60 XzINT(RND(O) #63) +1 
70 Y=INT(RND (0) 431) +1 
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80 ZzINT(RND(O $4) +1 
85 IF RND(O)}.3 THEN Z=1 
90 COLOR (7) "үкі 
100 SET (X,Y) 

110 SET (128-X, Y) 

120 SET (128-X,64-Y) 

130 SET (Х,64-У) 

160 GOTO 60 


MARTIAN LACE is also used in the MAGIC 
COMPOSER program in the chapter on sound. 


THE MOTION PICTURE MAN 


You can use the computer as a kind of  'etch-a- 
sketch' toy in Mode 1. You enter a number (г, 3 
or 4) to select the color you want, then use 
the cursor keys (the ones with arrows on them) 
to draw designs of your choice on the screen. 
The image begins in the top Left hand corner of 
the screen. 


As well as responding to the arrow keys, the 
program accepts, and acts on, the following 


commands: 


С - copies picture created to some printers 
(such as the Seikosha GP-100 or GP-100A) 


В — runs the program again from the beginning 


N — moves the cursor back to the start position 


m 
| 


freeze the picture 


с 
i 


stop the program 
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10 REM MODE 1 SKETCHER 

20 INPUT А 

30 MODE(1) 

40 COLOR A 

50 X=0:Y=0 

70 6۹ 

80 IF C$="," AND Х<127 THEN Хед 
90 IF C$z"M" AND X30 THEN X=X-1 
100 IF C$z*." AND Y20 THEN Y=Y-1 
110 IF C$z" " AND у<63 THEN ۷۰۷۶+ 
120 SET (X,Y) 

130 IF C$="C" THEN COPY 

140 IF C$="R" THEN RUN 

150 IF C$="N" THEN 50 

160 IF C$="E" THEN 1000 

170 IF (%-"5" THEN END 

180 GOTO 70 

1000 10 1000 
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CHAPTER FOUR — 
MAKING MUSIC 


Although it may seem a Little Limited, the 
SOUND command on your computer is capable of 
producing some quite interesting effects. 


The SOUND command is followed by two numbers. 
The first is the pitch (a number from 0 to 31, 
with 0 being a rest and 31 the highest note the 
computer can produce). The second 15 the 
duration (from 1 to 9, with 1 being the 
shortest). 


We can use the computer to play all its notes 
with the following program, SOUND DEMO: 


10 REM SOUND DEMO 
20 FOR T=1 TO 3 
30 SOUND 1,1 

40 NEXT 


When you run this program, you'Ll hear all the 
notes played from the Lowest А (note 1) to the 
highest D£ (note 31). 


COMPOSER ANDROID 


The computer can also be programmed to choose 
notes at random and create some rather hopeless 
'electronic music' as COMPOSER ANDROID 


demonstrates: 


10 REM COMPOSER ANDROID 

20 DURATION=INT(RND (0) 1241) 
50 PITCHZINT(RND(O) $31) 1 
40 SOUND PITCH, DURATION 

90 0 20 











As you'll hear, this is not very tuneful. It is 
possible, however, to write a program which 
sticks to one key (C) and manages to make 
noises which аге much more deserving - the 
adjective 'musical'. Our next program, MAGIC 
COMPOSER shows this convincingly. You'll see 
that the program also creates a pretty design 
on the screen as the music unfolds. The design 
part of the program is explained 1п the 
previous chapter of this book, on page 39, 
where it is called MARTIAN LACE. 


10 REM MAGIC COMPOSER 
15 DIM AUI) 

20 FOR 1-1 TO 11 

30 READ A(Z) 

40 NEXT Z 

50 МОЕ (1) 

50 X=INT(RND(0) 163) +1 

70 Y=INT(RND(0) #31) H 

80 Z=INT(RND(O) $4) +1 

90 COLOR (2) 

100 SET (X,Y) 

110 SET (128-I, Y) 

120 SET (128-1, 54-Y) 

130 SET (Y,64-Y) 

140 X=INT(RND(O) #11) +1 

145 IF Ді OR 197. THEN N=2+INT(RND(O)44) ELSE МЕ 
150 SOUND A(X), M 

140 GOTO 40 

1000 DATA 28,27, 25,23, 21,20, 8 
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ORGAN 


If you'd prefer to create your own music, 
rather than Let the computer do it, you can use 
the next program, ORGAN, with which to unLeash 
your creative powers. 


When you first run the program, an input prompt 
will appear. In response to this question mark, 
enter a number between 1 and 9. The Lower the 
number, the faster the 'organ' will play. 
Here's the key to the notes you play. 


KEY NOTE 


= Z m <O XN 
تا‎ > G) Tm O G 


; С! 
š D! 
space E' 


10 REM ORGAN 

15 REM CHANGE А ТО ALTER SPEED 
20 INPUT A:CLS 

30 CS=INKEY$ 

40 IF C$="7" THEN SOUND 4,A 

45 C$=INKEY$ 

50 IF C$="X" THEN SOUND 6,8 

99 CH=INKEY$ | 

60 IF C$="C" THEN SOUND 8,8 
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65 C$=INKEY$ 

70 IF C$-"V" THEN SOUND 9,8 

75 CH=INKEY$ 

80 IF C$="B" THEN SOUND 11,8 

85 C$zINKEY$ 

90 IF C$="N" THEN SOUND 15,8 

95 C$=INKEY$ 

100 IF C$z"M" THEN SOUND 6 
105 C$=INKEY$ 

110 IF C$z*," THEN SOUND 16,8 
Из 95 | 
120 IF C$z"." THEN SOUND 18,8 
29 C$-INKEYS 

150 IF C$z" " THEN SOUND 6 
135 IF C$z":" THEN END 

140 10 50 


This organ is quite flexible. Here's the 
'music' of the folk song CLICK GO THE SHEARS to 
play on your organ. The music was transcribed 
by Peter Shaw: 


св, y MN 
BBNBCZXXCX 
КЕЛТ ЕЁ, НВ 
~MNBVGA عو ھا‎ as 
Chorus 
ota к Po. 4 BDEDS 2 
МММ, ММВ, CX 
RGECEAZEE« ; + МН 
N ,ММВУС М2 و و‎ 
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CHAPTER FIVE — 
USING YOUR MEMORY 


With the aid of the additional plug-in memory, 
your computer can be used as a 'real computer' 
in ways which were impossible (or, at best, 
inconvenient) on the unexpanded machine. 


Let me explain what I mean by that. Before you 
bought your computer, you probably imagined it 
would be extremely useful as a means of storing 
and processing large amounts of information. 
There are several areas of practical use іп 
both the home and small business in which 


personal computers have been employed. These 
inc Lude: 


ње maintaining details of a record collection 
“- looking after your personal Library 
- storing recipes 
x maintaining personal financial records 
- assisting in organising material for 
research projects 


However, if you had tried to create Long and 
complex programs to do these - and Similar 
tasks - on your unexpanded computer, you тау 
have discovered that once you'd entered the 
program to hold and process your data, there 
was so little memory Left that the program was 
neatly only of use for demonstration purposes: 
This program shows how the computer could act 
as a sorting and access aid for my record 
collection, if it had more memory", 
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When your computer was Ғігв./ released, there 
was Little software available for it. You 
probably know that commercial software 
developers always keep а sharp eye оп пем 
computers. If it looks Like a computer is going 
to take off, then it is worth writing and 
marketing software for the computer. There is a 
Little of the 'chicken and еда! situation here. 
A wide variety of software packages available 
for a particular computer can help a potential 
purchaser make up his or her mind regarding 
which machine to buy. 


You can now use your computer, with much of the 
software which is now available, as a cheap 
and very useful business or personal tool. 
There are some points to watch, however. You 
may well find that available programs suit your 
personal ог business needs exactly. ТР that's 
the case, you just buy the program, load it in, 
and you're away. However, a program which works 
hand-in-glove with your present needs may, in 
the end, prove more of a handicap than a boon, 
as it may prevent you developing and expanding 
your activities as your needs change and 
develop. 


How can you avoid this problem? Опе way is to 
use commercial software -- or programs in 
magazines and books Like this one -- as the 
starting point for software tailored to your 
present, and anticipated future, needs. The 
other way, of course, is to write your own 
software from scratch, using the ideas you've 
Learned by reading this book. 
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There are а number of areas where computers 
have found ready application in business, and 
your computer can certainly assist in this way 
with a small business. You'll find that, among 
other uses, you could develop programs to 
assist with the following: 


- the payroll of a small firm can easily 
be managed with the aid of your computer 


- keeping ап up to date inventory of the 
stock of а small warehouse or shop 15 also 
possible, and provided that you choose 'codes' 
to represent particular items (rather than 
spelling out the name of each item in detail) 
you'll discover you can keep a surprisingly 
high number of different products in your 
inventory file 


- accounts work (both accounts receivable 
and accounts payable), along with such things 
as forecasting budgetary trends, are well 
within the capability of your computer, even 
for quite sophisticated and complicated work 


- word processing, after a fashion, can be 
managed оп your computer 


90, additional memory allows you to exercise 

your computer in ways which could have been 
unrealistic, or inconvenient on the unexpanded 
machine. But, it does not stop there. The 
extra memory gives you access to memory space 
to write far more elaborate, and satisfying 

games than may have been possible before. | 
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We'll Look briefly at some ideas for such games 
at the end of this chapter, but firstly we'd 
Like to mention another advantage of the 
additional memory; ап advantage that applies 
equally to business and games programs. If you 
are constantly worrying about the possibility 
of running out of memory, you are unlikely to 
create your programs at your best. 


The extra memory can be used, not only for 
making the program more elaborate and 
satisfying to use, but also in four important 
ways: 


— You can include full instructions, and 
very clear user prompts, 80 the user knows 
exactly what he or she is expected to do in all 
cases 


— Even if the instructions have been 
misunderstood, the extra memory can be used to 
advantage to add ‘error traps' to prevent a 
mistake by the program user causing the entire 
program to come to a grinding halt 


— The screen can be formatted in such а 
way as to reduce the chance of such an operator 
error occurring with, perhaps, the bottom two 
Lines of the display being used only for user 
prompts, with these erased by two blank PRINT 
@ Lines after the prompts have been followed 


— The screen can also be formatted purely 
for visual effect, spreading the computer 
output around the entire screen to make it as 
easy as possible to read and understand it 
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These four suggestions apply — as we said - to 
any programs, whether they are for enter- 
tainment, instruction or business  administra- 
tion; 













NASTY HABITS 












After you've cut your programming teeth оп 
short, simple programs, you'pe sure to want to 
start writing longer, more complex ones. When 
you do this, you may discover that many of the 
good habits you've learned will desert you. 














If you're not worried about making a program 
tight апа compact, you'll discover it is very 
easy to set up а long and sloppy set of 
IF/THENs which could easily have been replaced 
with a single IF/THEN sending action to a 
subroutine. When you have memory to spare, it 
often seems too much trouble to bother cleaning 
up your programs. 
















Discarded subroutines can clutter up the 
bottom ends of the listings, апа GOTOs cover a 
multitude of situations which arose because you 
did not give sufficient thought to the highest 
Line number you might need. 














SURPRISES 





One of the best things you can add to a Longer 
program is the element of surprise. If you can 
include situations which do not occur every 














time а program is run, you'll be making sure 
that the game remains interesting for а much 
Longer time than might be the case if every 
situation was triggered every time the game was 
run. 


You may wish to use and adapt the simpler 
programs in this book, adding your own touches. 
Instructions, use of color and sound can all 
add to the value of the final program. 


Another way of improving programs, and making 
them interesting to users for a longer time, it 
to use a feature you've no doubt seen in 
computer games before, the 'degree of 
difficulty’. When you allow the player to 
select a degree of difficulty, make sure that 
the user input really does alter the standard 
of play. Ensure that, even at the highest Level 
of play, the final score (or successful Landing 
on the moon, or a tally of obliterated aliens 
or whatever) is attainable in practice. 


You could also add further interest to games by 
awarding points, ог scores, or ratings and the 
like, which are genuinely related to the 
speed, skill, survival time or whatever the 
player demonstrated. А further twist is to 
award a 'гапк' (Like 'star fleet commander', 
'novice' or 'incompetent fool!) to the player, 
depending on how well he or she did. Points and 
ranks help to ensure that a player will remain 
interested іп а game for a longer time than 
might otherwise be the case. 


The use of a 'high score' is also a good idea. 
You can see high scores in а few programs in 
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this book such as MESOZOIC ATTACK. 


After you've been writing programs for a while 
you'll realize that many of them run too fast 
to be good games without the use of a  'delay 
subroutine'! (such as an empty FOR/NEXT Loop to 
slow things down). If the computer is meant to 
be thinking before responding to a move, it is 
more realistic for there to be a short pause 
before the computer replies, rather than come 
back instantly with its move or answer. 


SPEED CONTROL 


In contrast to this, you may well find that 
very long, moving-graphics programs run too 
slowly. You can ensure your program runs as 
fast as possible by starting with a GOSUB which 
Jumps right Over your main program to the end 
In this subroutine, you assign variables give 
the instructions, and so on. | | 


When the computer comes across a GOSUB ог GOTO 
command, it starts at the very first Line of a 
program, then searches through, Line by Line 

till it comes to the one it is Looking for. 
Therefore, if ап often-called subroutine is 
near the start of the Listing, rather than near 
the end, the computer will find it more quickly 
than would be the case otherwise. The Saving in 
time is not dramatic, but every fraction of a 
second you can save in a moving graphics 
program adds to its effectiveness. 














— > 


IDEAS FOR VOUR OUN GAMES 


The following List is by no means exhaustive, 
but should give you some ideas on the kind of 
programs you may be willing to tackle: 


CRIBBAGE: Sir John Suckling, who Lived from 
1609 to 1642, is credited with the invention of 
this game, an elaboration of the older English 
game of NODDY. If you enjoy cribbage, you'll 
probably enjoy the challenge of creating an 
electronic opponent, which not only controls 
the cards, but also draws а computer 
representation of the cribbage board on the 
screen, 


POKER: This, and many other card games, can be 
written using a deck of cards which is really 
the numbers one to 52, with one through 13 
representing, say, the hearts, 14 through 26 
the diamonds, and so on. Once you have a simple 
version of poker up and running, you may want 
to elaborate it, to play one of the many 
variations of the game, such as BLIND TIGER, 
WHISKEY POKER, STUD POKER, SEVEN-CARD STUD, LOW 
BALL and FREEZEOUT. 


CHILDREN'S CARD GAMES: There is a wealth of 
games ideas іп the field of children's card 
games and because they are generally much 
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simpler to play, with less subtle strategy, 
you'll probably find them easier to program 
than ‘adult' card games. 


MAID, PIG, GO FISH and BEGGAR-YOUR-NEIGHBOUR. 


«д РИК 
AEM РМ IT аз 


Children's card games include: SLAPJACK, OLD ^ 


% “д? 


BACKGAMMON: Although possibly man's oldest em 5000 


board game, the rules were not recorded in a 
systematic form until the middle of the 1700's, 
when the famous game writer Edmond Ноу [е 
decided to write them down. Since then, the 
only significant change in the game (апа опе 
which certainly adds to its appeal) is the 
provision of the doubling cube. You'll find 
that Backgammon may be somewhat simpler to 
write than other board games of pure skill, 
because the use of dice introduces an element 
of chance into the game from which the computer 
can benefit. 


CHESS: While this may seem an impossible task 
at your present stage, you can approach it by 
trying to write a kind of  'mini-chess' you 
invent. Your version of chess could be on a six 
by six board, instead of the standard eight by 
eight, or could use just four pieces for each 
side. When you start thinking about it, you'LL 
realise that chess (and other board games, for 
that matter) is a fruitful field to look for 
ideas to turn into games for your computer. 


NINE MEN'S MORRIS: This game, named in 
Elizabethan times, is played on a simple board 
but there is а wealth of strategy you can 
program into it. 
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| Pyramid B 


CHECKERS: This, like Chess, can act as a source 
of ideas for variations. A 'mini-checkers'on a 
four by four board may be a good place to 
begin. 


HOULETTE: The most famous gambling game of them 
all ~ Roulette ~ is a great one to computerise, 
and one which you should not find difficult to 
do. The relative ease of writing a Roulette 
program, compared to one which, say, plays 
Chess, comes from the fact that a Roulette 
program does not require any strategic 
'intelligence'!, but simply has to accept bets 
and spin the wheel, then act on the result. 


5 
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CHAPTER SIX — 
CREATING BOARD GAMES 


This. chapter of the book will Lead you through 
the development of an almost-complete game of 
Checkers (or Draughts, а5 it is often called]. 
The game 15 'partially-complete' because it 
lacks the facility of multiple jumps. Apart 
from this, it will provide you with a lot of 
entertainment. 


The main reason for including it in the book is 
so that a method for numbering boards Рог 
computer versions of board games сап be 
explained. This system produces a board which 
the computer can manipulate relatively easily. 
A similar numbering system can be used for 
almost any board game, from Chess to Othello. 


You should follow the text carefully, entering 
each version of the program as it is described. 
Then you'll have a pretty good understanding of 
how the system works. This information can then 
be used to create your own computer board 
games. 


The normal way to number a checkers board is to 
count off the white squares from one to 32, as 
in this diagram: 











Actually, the black squares are counted, but 
white ones are used here because it is easier 
to see the numbers on white than on the black. 
When you look at the numbers on this board, 
you'LL see the method creates a problem when we 
try to define a move in terms of the difference 
between two diagonally adjacent squares. In one 
direction, the difference between the squares 
can be three or four, and in the other 
direction, the difference can be five or four. 
There are also no 'spare' numbers to indicate 
where the edge of the board begins. 


In an article in Scientific American іп the 
1960s, A L Samuels described a board-numbering 
system he had devised in which the difference 
between diagonally adjacent squares was always 
four and five (or minus four and minus five). 
The system also allowed for numbers to be given 
to squares which were 'off the board'. (You can 
read about Samuels' system in Systems Analysis 
and Programming, in READINGS FROM SCIENTIFIC 
AMERICAN, Strachey, С., WH Freeman and Со., 
San Francisco, 1971.) 


Although Samuels' system worked, it was a 
Little Limiting, so I devised a system of my 
own which was more convenient for the computer 
to use. In my version of the system, the 
difference between squares is always six ог 
seven (or minus six and minus seven). The 
system sets up an array of 82 elements, and 
allots certain elements of this array to 
squares on the board. All the others are 
understood by the computer to be off the board. 
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In this program, the computer allots a value of 
9 to any square off the board, zero to an empty 
square, 1 to a computer's ordinary piece and 2 


to its King, and -1 for the player's piece with 
-е for the player's King. This may sound а 
Little complicated, but as you read on, it 
should become clear. 


Look at the numbered board above. You can see 
that if you move from the top right hand corner 
(69) to the square diagonally below it (63) the 
difference between the two squares 15 -6. Now, 
choose any other square on the board from which 
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you can move down and to the left, and you'll 
see there is a difference of -6 between the 
square you started on, and the square on which 
you have finished. 


This predictability makes it easy for the 
computer to manipulate pieces on the board. 
You'll see if you move in the other direction 
(that is downwards to the right) that the 
difference between the squares is -7. 


With the first version of the program, we'll 
actually be playing on this board, so you'll 
have to get a number of buttons or small coins 
to use as pieces. Alternatively, you can 
transfer the numbers to a full-size board. 


The program is in two parts. The first 'sets up 
the board' (the subroutine starting at 9000) 
and the second (10 to 370) actually plays the 
game. Your pieces start at the bottom of the 
board on the Lower numbers, and the computer 
starts at the top. You place the pieces on the 
board and then type іп RUN. As you'll see, it 
plays remarkably quickly. 


The computer's moves are shown as two numbers. 
The first is the square it is moving from, and 
the second is the square into which it will 
move. Move the computer's piece on the board 
as instructed and then decide on your move. 
Make sure you actually move your piece on the 
board before you make the move, so you don't 
forget what the move was. Remember that there 
is no provision within the program for multiple 
Jumps by either you or the computer. Ав well, 
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the game in this version cannot make ог use 
Kings. 


Here is the first part of the program, which 
sets up the board. It creates an array - DIM 
А(82) - then fills the array with numbers 
representing pieces on the board (1 and -1), 
empty squares (0) and squares off the board 


(9). 9000 DIM A(82) 
9030 Х(1)=-6:1(2)=-7 
9050 FOR 1=1 Т0 82 
9050 A(1) 59: NEXT 
9065 FÜR 1556 ТО 72 
9066 IF 1=67 THEN 2-57 
9067 IF 1580 THEN 1-53 
9070 AL) <1: NEXT 
9075 FOR 1-43 10 53 
9078 IF 1247 THEN 1-50 
9080 4-7 
9090 FÜR 2-24 TO 40 
9095 IF 1534 THEN 1-27 
9096 IF 1-28 THEN 1530 
9100 А(7) z-L:NEXT 
9110 4 MOVE" 
9120 7" 
9130 RETURN 


Check to see if it is working properly before 
you proceed. RUN the program, and ignore the 
error message you get. Get the computer to 
print out the following, to make sure it has 
asssigned values correctly. The correct answer 
to each is given: 


PRINT А(гз) 9 
PRINT А(54) 9 


61 








љиљана урне 


РЦ 


سح 


PRINT A(64) 1 
PRINT A(38)  -1 
PRINT A(51) 0 
PRINT A(73) 9 


Now enter the following: 


1 REM CHECKERS 
5 С5: 60508 9000 


10 020 

20 1224 

25 IF A(2)29 OR A(Z)<1 THEN 109 

30 Х2] 

bO IF ACZ+X(X))<0 AND А(1+240(0))=0 THEN B=X(1) 
70 IF 0000 AND 1+240 THEN 120 

80 8-0 

90 IF 152 THEN ۰70 60 

100 IF 1572 THEN 1-0 25 

110 IF 020 THEN 160 

120 А{1+0)=0 

130 ۸ 76 (1) 

140 А{1)=0 

150 PRINT 808 

155 6010 520 

160 Y=0 

170 Z=INT(RND (0) #49) +24 

180 ۷۶۱ 

190 IF АКО) С AND A(Z)<>2 THEN 170 
200 Х-1 

210 IF ACZ+X(X))=0 THEN @=X (X) 

220 IF А(1)=2 AND A(Z-X(X))=0 THEN Q=-XiX) 
230 IF 0020 THEN 290 

240 IF 152 THEN 0 210 

260 IF Ү<100 THEN 170 

270 PRINT "YOU WIN" 

280 END 

290 А(1+0)=А(1) 
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200 412) =0 

310 PRINT 3 0,06: 2: 2+0 

320 PRINT:PRINT B$; 

330 INPUT A,B 

340 CLS:A(B) <А (0) 

350 А(А)=0 

560 IF ABS(A-B)37 THEN A(((A+B)/2))=0 
370 BOTO 10 


Play a complete game with the computer, using 
the board provided, then return to the book 
and we'll Look at ways of improving the ñam, 
You move by entering the number of the square 
you're moving from, then a comma (,), then the 


square you're moving 50 b | 
ВЕ 9 я efore pressing 


The next version of the program adds a board 
display. You still need to refer to the diagram 
to get the numbers to enter, and there is no 


provision for Kings. Delete Line 320 of your 


program, and delete the CLS from Line 340 
Change 310 and 150 to GOSUB 5000, and add Line 
15. Change Line 155 to GOTO 330. 


| REM CHECKERS 

2 REM VERSION II 

5 ULS:605UB 9000 

10 0-0 

15 60508 5000 

20 1224 

23 iF 442)29 DR &(2) 61 THEN 100 

50 X=] 

60 IF AGeX OG0)€0 AND А(1+21](1))=0 THEN 0=Х (X) 
70 IF КО AND 29210 THEN 120 | 
80 0-0 | 

90 IF X42 THEN Х=Х+1: 5070 60 
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100 IF 1472 THEN 222+1:6070 25 

110 IF Q=0 THEN 160 

120 А(7+0) =0 

130 А(1+210)=А{7) 

140 8(7)-0 

150 60508 5000 

155 GOTO 330 

160 Ү-0 

170 Z=INT(RND{0) £49) +74 

180 Yzy4] 

190 IF ІЗІ AND A(Z)<32 THEN 170 
200 X=] 

210 IF A(Z+X(X))=0 THEN Q= Х(Х) 

220 IF А(2)=2 AND A(1-X(X))=0 THEN 0--Х (4) 
230 IF 0000 THEN 290 

240 IF X(2 THEN X-X41:60T0 210 

260 IF ¥<100 THEN 170 

270 PRINT "YOU WIN" 

280 END 

290 A(1+0)=A(2) 

500 8(2)=0 

$10 60508 5000 

550 INPUT A,B 

340 А(В)= АА) 

550 А(А) <0 

560 IF АВ (А-В) >7 THEN At({AtB) /2) ) 0 
370 6010 10 

3000 FOR H-24 Т0 72 

9010 IF A(M)=1 THEN А(М)=66 

5020 IF A(M)=-1 THEN АМ) =87 

3030 IF А(М)=0 THEN А(М) = 3 

5050 NEXT M 

2055 PRINT @ 0," : 
5060 IF D<>O THEN PRINT т 0, A$; 7; 7+0 
9070 PRINT 9 320," 

5080 PRINT 9 64,; 
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5090 FOR К-0 TO 3 
3100 РОК 950 TO 3 
S110 PRINT CHR$(128); CHR$(A(72-J-131K)) ; 
3120 NEXT J 

5130 PRINT 

3140 FOR J=0 TO 3 
5150 PRINT CHR$ (&(66-J-131K) )  CHR$ (128); 
5160 NEXT J 

3170 PRINT 

2180 NEXT К 

5200 FOR М=24 Т0 72 

210 IF A(M)=66 THEN А(М)=1 

20 IF A(M)=87 THEN A(M)=-1 
230 IF &(M)232 THEN А(М)=0 

290 NEXT M 

260 RETURN 


92 
Jj 


J 
с 
J 
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9000 DIM 4:82) 

9050 X(1)2-8:X(2)2-7 
9050 FOR 1-1 TO 82 
7060 A(Z)=9:NEXT 

7065 FOR 7556 TD 72 
7066 IF 1567 THEN 7=69 
7067 IF 1560 THEN 1-63 
2070 ñ(1)=1:NEXT 

7075 FOR 1-45 TO 53 
9076 IF 1-47 THEN 1-50 
9080 (7) 0: МЕХТ 

7070 FOR 1-24 TQ 40 
7095 IF 1534 THEN 7537 
9096 IF 1-28 THEN 2-30 
7100 8(7)5-1: МЕТ 

7110 885 "МҮ MOVE" 

7120 7" 

9130 RETURN 
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The next version of the program adds Kings (the 
computer's King is a К, yours is the hash, #, 
symbol), and with the addition of а single 
Line, 215, adds ап element of foresight (the 
computer will be reluctant to move into danger 
on а non-capture move) which markedly improves 
the computer's play. 


| REM CHECKERS 

2 REM VERSION III 

5 REM KINGS ADDED 

4 REM PLUS SOME STRATEGY 

5 (15:60508 9000 

10 0-0 

15 60508 5000 

20 1-24 

29 IF A(Z)=9 OR ACD <1 THEN 100 

30 Х=1 

55 IF 2471 THEN IF A(Z-X(X))<0 AND A(Z-24XiX))=0 THEN 9=-Х(Х) 
&0 IF ACZ+#X(X))<0 AND 4۸)1+211)1((<0 THEN G-X (1) 
70 IF 0670 AND 1+218 THEN 120 

80 0-0 

90 IF X42 THEN 0 60 

100 IF 2472 THEN 151+1:6010 25 

110 IF 050 THEN 160 

120 А(2+0) =0 

150 А{1+210)=А{(7) 

140 А(2)20 

150 6050В 5000 

155 5070 550 

166 Y=0 

170 Z=INT(RND (0) #49) +24 

180 YzY*1 

190 IF A(1)<>1 AND 802422 THEN 170 

200 121 

210 IF A(Z+X(X))=0 THEN 0-7 (1) 

215 IF A(Z+28X(X))¢0 АМО 0520 AND RND(O)>.7 THEN 8-0 
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220 IF A(Z)=2 AND ACZ-X(X))=0 THEN Q=-X(X) 
230 IF Q¢)0 THEN 290 

240 IF X¢2 THEN X=X+1:60T0 210 

260 IF У<100 THEN 170 

270 PRINT "YOU WIN" 

280 END 

290 (1+0) =А{1) 

300 40 

310 60508 5000 

330 INPUT A,B 

340 АСВ) <А(А) 

350 А(А)=0 

340 IF ABS(A-B)>7 THEN AC{ (A+B) /2))=0 
370 GOTO 10 

5000 FOR M=24 TO 72 

5005 IF A(M)=1 AND 1:25 AND M(28 THEN A(M)22 
5006 IF A(M)=-1 AND 168 THEN A(M)--2 
5010 IF A(M)=1 THEN АМ) =66 

5015 IF A(N)=2 THEN 5 

5020 IF A(M)=-1 THEN A(M)=87 

5025 IF А(М)=-2 THEN A(M)=35 

5030 IF A(M)=0 THEN (72 

5050 NEXT M 

5055 PRINT 3 0," , 

5080 IF 0020 THEN PRINT 2; 240 
5070 PRINT 3 320," ' 

5080 PRINT 2 54,; 

5090 FOR К=0 TO 3 

5100 FOR 1-0 TO 3 

5110 PRINT CHR$(128) ; CHR$ (A(72-J-131K)); 
5120 NEXT J 

5130 PRINT 

5140 FOR 2-0 TO 3 

5150 PRINT CHR$(A(56-J-131K)) ;CHR$ (128) 3 
5180 NEXT J 

5170 PRINT 

5180 NEXT К 
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3200 FOR M=24 TO 72 

5210 IF А(М)=56 THEN А(М)=1 

5215 IF A(M)=75 THEN А(М)=2 

5220 IF А{М)=87 THEN А(М)=-1 
5225 IF А(М)-55 THEN Я(М)<-2 
5230 IF А(М)=52 THEN A(M)=0 

9290 NEXT M 

3260 RETURN 


9000 DIM 2( 

9030 X(1)2-6:X(2) 777 
9050 FOR 151 TO 82 
9050 A(Z)=9: NEXT 

9065 FOR 1-55 10 72 
9066 IF 1567 THEN 7 
9067 IF 7560 THEN 1-65 
9070 А(1)=1:МЕХТ 

9075 РОК 2245 10 95 
9076 IF 1547 THEN 2-50 
9080 0-71 

9090 РОК 1-24 Т0 40 
9095 IF 2234 THEN 1-57 
9096 IF 1-28 THEN 2250 
9100 А(2)=-1: МЕХТ 

7110 A$="MY MOVE" 

2120 B$z"YOURS" 

9150 RETURN 


Our final version of the program adds а few 
features, such as a 'score' which counts how 
many pieces each of you have captured. Апа in 
this version, you can forget the numbered 
board. The board now appears on the screen with 
the Letters ABCDEFGH across the top, апа the 
numbers 1 to В down the side. You make а move 
simply by entering the co-ordinates of the 
relevant squares (such as E6,C4) instead of the 
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numbers апа the computer interprets them to 
make your desired move. 


Before I give you the listing of the final 
version, here's а printout of part of a game 
played against it. When you see it оп the 
screen, the dots will be replaced by black 
squares, and the 'Less than' symbols down the 
right hand edge will be replaced by a black and 
white Line. 


ABCDEFGH АВСОЕЕСН 
Вы, ВЕ 1 и, НЕ Bs Be 4 
нон... 2 Be ht. D.B... Ж 
او رت‎ за Cu & adu xd کے‎ 

„К ~ 4 В. abs a 4 
ытта 4 5 МАРНЕ 
им. 6 и. Н.И. „< 6 
АЛА, Ú< 7 „А.М. м.м 7 
А.м. М, А. B WH. WNW. B 
۰0 0 = ЕУ, бё 


ABCDEFGH 

a Ba В. Ва AX 
Mol eB. 
и «Ме во» 
Be неба Ж 


Dd F.J к= 


L 


6 لا لطاء ۷۷ا 
الام „М.Ш.‏ 
W.W.W.W.z 8‏ 
538,7 ? 


нади РОЗЕ 
YOUR SCORE LS sl 











































ABCDEFGH ABCDEFGH 
„B.B.B. B 1 „B.B.B. B< 1 
Blu а 44d Веб » „* 2 

„В. Ве ۵ ыла & < Š — MY SCORE IS 3 
B. „В.В. 4 Ва «Bat 4 YOUR SCORE IS 3 
©. soste Ж Ba = • S 
ми. ИМ с É EEE u^ B 
„М.м.м. МЕ 7 „М.м.м. не 7 
W.W.W. „< 8 W.W.W. „с 8 

> 86,64 


> ق8‎ H5 


E: се | And here's the final version of our Checkers 
YOUR SCORE IS 1 | 
дате: 
| REM CHECKERS 
ARCDEF GH 2 REM VERSION IV 


3 REM PROPER MOVE INPUT 


.B.B.B. Be 

L سی‎ REM PLUS ON-SCREEN SCORING 
ци err N 249 5 CL5:60SUB 0 

. «BAB. < 5 | 

Е вед 2, $ 10 @=0 
БШК a 22% 15 80508 5000 
aee: 225 20 1:24 

2 уә" 25 IF A(1)=9 OR ۲ 100 
" " n n “ / 35 50 =1 i 
W.W.W. .z В | 
89 БІРІКТІ THEN IF A(I-X OD 0 AND A(Z-24X(X))=0 THEN @=-X(X) 


? C6,E4 
5 24% ІР ACZ+X(X))<0 AND A(Z+24X(X))=0 THEN Q=X(X) 


—€— 264 1 2.50 70 IF 00 AND 18210 THEN 120 
_ 5... - 255 80 0-0 
"DEFG vOUR SCORE IS Е 

is e? | | ar aco = 90 IF 12 THEN Х=1+1:6070 86 (24s ) 
ur یسیو‎ E 65 100 IF 2672 THEN 1=1+1:6070 2572. >> 

we 2-2 =. 7° 110 IF 050 THEN 160 (пе) 
ян 75 120 ۵)1+8(0 | 
B. 4 — а £° 130 АН) А (2) | 
555 ниче 45 135 0650641 ue # 
ee de ао 156 PRINT 9 392, "МУ SCORE IS"CS — ' 
WWW. WWE 95 140 А(1]=0 
W.W.W. .z В 


о ББ. ЕА Зоо 150 60508 5000 
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5050 IF А(М)=0 THEN А(М) =32 

J050 NEXT M 

4070 PRINT à 320," ы 

5080 PRINT 9 64,; 

3090 FOR K=0 TO 3 

5100 РОК 950 ТО 3 

3110 PRINT CHR$(128);CHR$ (A(72-J-131K)) ; 
3120 NEXT J 

3130 PRINT 

3140 FOR J=0 TO 3 

$130 PRINT CHR$(A(66-J-131K) ) СНА8 (128); 


556 155 GOTO 330 
310 180 120 

245 170 Z=INT(RND(O) 149) £24 

¿Le 180 Y=Y+1 

324 190 IF A(Z)<>1 AND А(1)‹›2 THEN 170 

اع( 200 33% 

535 210 IF ACZ#X(X))=0 THEN Q-1 (0) 

за” 215 IF (18241111150 AND 0520 AND RND(O)).7 THEN 0-0 
345 220 IF А(1)=2 AND A(Z-X(X))=0 THEN 05-110) 
ggo 230 IF 000 THEN 290(3 75.) 


359 240 IF 1)2 THEN Х=1+1: 6070 210 G >, 

зво 260 IF YC100 THEN 170 (3, 5) 5150 NEXT J 

365 270 PRINT "YOU WIN" | 5170 PRINT 
5180 NEXT K 


279 280 END 
374 290 А(2+0)=А(1) 
зво 300 А{1)=0 
3«« 30 60508 5000 
$490 330 60508 1000 
395 340 А(В)ЕА(А) 
qoo 250 4(4)=0 
дод 550 IF ABS(A-B)>7 THEN A( (A+B) /2))=O:HS=HS+] 
—4!9° 565 IF H5CQ THEN PRINT 9 422, "YOUR SCORE I8": HS 
414 370 GOTO 10 
Eoo 1000 INPUT V$,N$ 
505 1010 FOR U-1 TO 32 
zio 1020 IF Y${U)=V$ THEN A=R (U) 
515 1030 IF Y$(U)=N$ THEN B=R(U) 
525 1050 RETURN 
5000 FÜR M=24 TO 72 
5005 IF A(M)=1 AND M23 AND M(28 THEN A(M)=2 
2006 IF A(M)=-1 AND M>68 THEN A(M)=-2 
5010 IF A(M)z1 THEN A(N)-56 زی‎ 
5015 IF А{М)=2 THEN А(М)=75 \ 1<) 
3020 IF A(M)=-1 THEN A(M)=87 (лу) 
2025 IF A(M)--2 THEN A(M)=35 4 


5200 FOR M=24 Т0 72 

9210 IF A(M)=66 THEN A(M)=1 
2219 IF А(М) =75 THEN A(M)=2 
3220 IF &(M)-87 THEN А(М)=-1 
9229 IF А(М)=55 THEN A(M)=-2 
3230 IF A(M)232 THEN А(М)-0 
3250 NEXT M 

2250 RETURN 

2000 DIM A(82) 

7050 X(1)2-8:X(2)2-7 

7050 FOR 1-1 Т0 82 

9060 А(1)=9:МЕХТ 

9085 РОК 1-56 TO 72 

9065 IF 1-67 THEN 7549 
7067 IF 1-80 THEN 7565 
9070 А(1)=1:МЕХТ 

9075 FOR 1543 TO 53 

7076 IF 1-47 THEN 2-50 
9080 4-717 

7090 РОК 1-24 TO 40 

7095 IF 1-34 THEN 7537 
7095 IF 1-28 THEN 7530 
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9100 A(2)z-1: NEXT 
Ға f 9110 ء46‎ MOVE" 
е 9120 7 

9130 FOR 0572 ТО 296 STEP 32 

9140 PRINT à J,CHR$(133) ; INT(J/32) -1 

9150 NEXT J 

9150 PRINT 9 32, "ABCDEFGH" 

9170 PRINT 3 64," PLEASE" : PRINT" > >БТАКО" : PRINT" 778" 

9180 DIM R(32), Y$ (32) 

9190 FOR T=1 TO 32 

9200 READ Y$:READ Q 

9230 R(D 20: Y$ (7) 9 

9240 NEXT 

9250 Н5=0:С5=0 

9500 RETURN 

9510 DATA "B1",72,"D1",71, "F1"*,70, "НЕ" „69 
520 DATA "А2", 56, "C2", 55, "E2", 64, "G2", 63 
530 DATA "B3",59, "D3", 58, "F3",57, "НЗ", 36 
9540 DATA "A4",53,"C4",52, "E4", 51, "G4", 50 
9550 DATA "В5", 46, "05" 45, "F5", 44, "H5", 45 
9560 DATA "Ab", 40, "Cb", 39, "Е6", 38, "66" ,57 
9570 DATA "B7",33,"D7*,32, "F7" 31 "H7", 30 
9580 DATA "A8",27, "CB", 25, "EB", 25, "GB", 24 
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CHAPTER SEVEN — 
A GAMUT OF GAMES 


The ‘Lessons! are now behind you. In this next 
section of the book we have a number of games 
which I am sure you'll enjoy playing. 


Once you have them up and running on your 
system, spend а bit of time adding your ом 
personal touch to them. Modify them in any way 
you like. As well, studying the program 
Listings should give a number of additional 
ideas to include in your own programs. 


The games in this section are: 


LAUNCH PAD 
LEAPFROG . 
NUMBER CAVALCADE 
ROMTHELLO ‘ 
LIFE 
NIMGRAB ‘ 
LAS VEGAS HIGH 
SWITCHEROO : 
MANCALA 


Good gameplaying. 
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LAUNCH PAD 


Here's a simple program which fills your TV 
with 'rocket ships' blasting off up the screen. 
You may well be able to work this very 
effective display into a game. 


Here's an indication of what it Looks Like оп 
screen: 


А 
L^ 
/ / | k \ 
/ KN А 
[^T 
ЗА 
ZEN 
2 
ҮІ 
теза! 
/ N 
(3 
[^I 
ff a! 
/ÁXN 
2 
| Шр! 
fF АМ 
/ KN 
Е 
DUI 
of ا‎ 
ИЖ 
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And here's the brief Listing: 


10 REM LAUNCH PAD 

15 DIM 48 (5) 

17 CLS 

20 А$ (1) = 11 A" 

30 А$(2)=" ۰ 

40 AS(3)=" //:\\" 

50 A$(4)=" ۰۷ 
۶۶0 7+1 
v? PO FOR R=1 Т0 4 
“7130 PRINT ТАВ(0) ; A$ (К) 
Pigs NEXT R 

140 FOR P=1 TO 0/3 

150 PRINT 

160 NEXT P 

170 6070 20 
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LEAPFROG 


Here's a game which will test your wits. The 
game begins with a display Like this: 


THAT WAS MOVE 0 


* Жж k ж 


$ $ $ $ 
188456788 


WHICH PIECE TO MOVE? 


The aim of the game is to end up with the 
asterisks оп the Left and the dollar signs on 
the right. You can only move into the empty 
space, either by sliding sideways into it, ог 
by jumping over one piece (hence the name of 
the game) into the space. 


The aim of the game is to get the pieces 
swapped in the fewest possible moves. You'll 
find it a difficult, frustrating challenge. 


10 REM LEAPFROG 

20 X=-1:M=9 

30 CLS 

90 FOR 051 TO M 

100 IF 065 THEN A(Q@)=ASC("$") 

110 IF 029 THEN А(0)=450 ("4") 

120 МЕХТ 0 

130 FOR Т=1 TO 717 

140 С<0 ~ 
150 x=X+1 

170 PRINT 9 52, "ТНАТ WAS MOVE ";X 

180 PRINT:PRINT 

200 GOSUR 1000 " 
210 PRINT:PRINT 
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220 PRINT "YOU HAVE":C; "CORRECT" 

230 IF C=8 THEN 560 

240 60508 320 

270 GOTO 130 

320 PRINT 9 390,"WHICH PIECE TO MOVE?" 
324 IF INKEY$<>"" THEN 324 

329 A$-INKEYS 

326 IF МӘЗ" OR A$2"9" THEN 525 

527 T=VAL(A$) 

528 PRINT 9 390," а 
590 K=A(T) 

540 А{(Т)=0:А(Н)=К 

350 RETURN 

580 PRINT:PRINT TAB(8);"WELL DONE!" 

370 PRINT:PRINT TAB(4);"YOU SOLVED IT IN"," JUST"; 3; "MOVES" 
1000 PRINT:PRINT 

1010 FOR 221 109 

1020 IF 8820550 THEN PRINT CHR$(ACDJ);" "; 
1030 IF ñ(Z)=0 THEN PRINT " +; :Н-7 

1040 IF 745 AND AiZ)=ASC("H") THEN С=С+1 
1050 IF 129 AND AtZ)=A5C("$") THEN С=С+1 
1070 NEXT 1 

1080 PRINT:PRINT "12345678 9" 
{090 RETURN 


THAT WAS МОЖЕ a 





YOU HAVE 4 CORRECT 
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NUMBER CAVALCADE 


In this simple game, you think of a number 
between one and 63. The computer then proceeds 
to show you a series of groups of numbers, ТР 
the number you're thinking of is within a 
particular group, you press the "ү" (for 'yes') 
key. If your number is not on the screen, you 
press the "N" key, ' 


At the end of the game, the computer will tell 
you the number you had thought of. 


lcs o ИЗТ 11 yu 15 17 
L0 фока Bo 97 29 31 
55 od 37 59 41 45 45 
T 49 51 ВЕ 585 my чо 


Gl 52 


= 59 © 7 10 11 14 15 
ПӘ 19 па ШЕ ЗА 27 30 
51 54 35 38.39 42 43 
46 47 50 51 54 55 59 
29 62 6 


к. "и یں‎ 
45 6 7 12 15 14 15 
A ... ға B ғ 722 г 2 # = "= ٠ "9930 өө, 
a Gl ge a ПЕ 99 ТИ 
31 56 37 38 39 44 45 
"4g "у o qu es ө n PER pep 
е 47 50 51 54 та 5i 


61 62 62 
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5 








9 
24) 
1 
46 


61 


ag 
46 


и т 


زا 


10 


۰۰٠11۳۰ 
5542 


40 
47 


Z 


=з 
СО an 


СК 
“ é 


& 


euo 
47 
5 4 


1 


іл дека 44 


6 


41 
0 


& 


14 15 
Af 28 29 20 
аа 43 44 43 


of de 427 40 


је. 17 

a a4 2 26 
a0 31 40 49 
oo g4 24 Ga 


60 61 62 63 


J5 за ھ.‎ 38 
42 4X 44 45 
49 50 51 52 
So 57 58 59 


YOUR NUMBER WAS 29 


10 REM NUMBER CAVALCADE 

15 Х=.3:№=0:60508 1020 

20 PRINT "1:58 7 9 1 13 13 17" 
BU FRINT “TY 21 23 29 27 27 31" 
40 PRINT "33 35 37 39 41 43 45" 
QU PRINT "AT 49 21 83.39 I 59" 
60 PRINT "61 65" 

70 GOSUB 1000 

80 PRINT * 2 3 T 10 11 14 15" 
30 PRINT "18 19 22 23 26 27 30° 
100 PRINT *31 34 35 38 39 42 45" 


81 


га 1% 


TW 
2554 
my ony 
ed 
— 
«JU 
my 
ال‎ 


21 
28 
54 


E 
raed 


myo 
ae 


29 


pin 
v aL 


59 


g— MMM 


110 PRINT 
120 PRINT 
130 60508 
140 PRINT 
150 PRINT 
150 PRINT 
170 PRINT 
180 PRINT 
190 GOSUE 
200 PRINT 
210 1 
220 PRINT 
230 PRINT 
240 PRINT 
290 GOSUB 
260 PRINT 
270 PRINT 
280 PRINT 
290 PRINT 
500 PRINT 
400 50508 
410 PRINT 
420 PRINT 
430 PRINT 
440 PRINT 
430 PRINT 
450 8 
470 PRINT 


"46 47 50 51 54 55 98" 


"99 62 64" 

1000 

"hoa, 1 1⁄4 15" 
“20 21 22725 429 29 20" 
"31 36 57 38 59 44 45" 
"45 47 50 51 54 55 98" 
"81 62 65" 

1000 

LET 1122 13 14 У 


"24 25 26 27 28 29 50" 
"51 40 41 42 45 44 45" 
"46 47 56 57 58 39 60" 
"61 62 63" 
1000 
"46-1 
"952 
5 


"50 


"32 35 34 59 36 37 38" 
"39 40 41 42 45 44 45" 
"46 47 48 49 50 51 22" 
"jo 94 59 56 97 98 57" 
"60 61 62 65" 

1900 

"YOUR NUMBER WAS";N 


с 
J 
гу 
i 


J 
b 


480 GOTO 480 


1000 Х=Х+Х 


1005 GOSUB 1060 
1010 SOUND (213/5*2),1 
1020 FOR T= 1 TO 500: МЕХТ T 


1030 (15 


1040 PRINT:PRINT:PRINT 
1030 RETURN 
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1060 IF INKEY$¢>"" THEN 1060 
1065 4۹۶ 
/ 1070 IF ۵۹ "۷ AND A$4?"Y" THEN 1065 
1080 IF AS="¥" THEN N=N+X 
| 1090 RETURN 
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ROMTHELLO 


This major program is based on the board game 
known either as REVERSI ог OTHELLO. Invented in 
the late eighteen hundreds, 15 is played on an 
ordinary eight by eight board. When played on a 
board, you use pieces which have different 
colors on each side. The game begins with four 
pieces placed on the central squares. 


From this point on, you move by placing one of 
your pieces next to a computer piece or pieces, 
with another of your pieces further on. When 
that happens, all the computer pieces 'reverse' 
to become your pieces. 


Here's how it works. Suppose a Line of pieces 
Looked Like this: 


OXXXX 


If you decided to put your piece (an 0) at the 
end of the Line Like this: 


ОХХХХО 


The computer pieces (the X's) would reverse, so 
the line looked Like this after your move: 


000000 


The game continues until every square on the 
board is filled, or neither player can move. As 
you can imagine from the sample move shown 
above, fortunes change swiftly in this game, as 
rows branching off your position, such as on 


94 





the diagonals, can be changed with a single 


move. 





If you cannot move at any time, you signal this 
to the computer by entering a zero. 


This sample run shows the early stages of опе 
game played against the computer: 








| 8 45 2 
| м " n 1 
i м " | 8 
4 хо ë < 
"J و‎ OX š ди 
à к 6) 
7 п n н п 7 
e a и = e 
1 zz ب‎ А خض8‎ 6 f£ 8 
COMPUTER 2 HLUTAR 2 
1 23 44 ==” C3 £3 
1 А 
4 e M لا‎ м 4 
2 ХА s а 
ё X 5 Š 
2 "m " 
t zs 
C n н и я и и " н (C) 
Т c 3 45 & 7 8 
GUMIFLITER. 4 нимам 1 








Tam m سی‎ 


РЕ 


o T — sage — o — -— "=n ج‎ 








12 345478 12549678 
D <a w ین یع‎ wea: X БІ 42, wha x 
So ے‎ x & b mw nag & || оси w ik ox w w m 
Ü зк» ی ۓ‎ x s а Š E ca s Ñ w Bw» ü 
4 “ а я b бе an ow à 4 4 „ ЧЁ + تا‎ d.a = a 
E 44“ O X wea Ж в. Û у е 
6 ма Ча سض یہ‎ = x 6 É “Еп ва 
Ü на ## w аа па 7 " a ww бга a x 
3 .... и. B В ~ ے‎ те & Ros 


1? xx amsa xB | 1725454738 


СОМРУТЕК 53 HUMAN 2 | COMPUTER 5 HUMAN 


1 " ч n = м и " и 1 1 и " " " и a " n 
z= n " n н n p ка 

м в " ч n п п и сө 7 u n X п п п н "‏ اہم 
н п м X ( ) n " n 4 4 " i C) г) г) п " и‏ .4 
dU кж ВА Ew ш ж "€ BH sa КЁ ои фи‏ 
Ó аа U X s ow x = & б — X A O K К.ж a‏ 
n n м н ч м и n 7 4 п n n n x и n n‏ 7 
м n м “ n n м n d c " n и X и м n‏ 8 


1 2 25 5 & Z 8 


COMPUTER 8 HUPA 


: е 2-% & y B ізі ЊЕ & 7 8 
1 " м a и в н и u 1 1 п и Im и " n "n и 
ово вон, ےج‎ ee Ж * x 06000 
ہا‎ - & ыжыз Шо уы © а г Bur ТА ВЕ ТЕ الا‎ Ln» à 
СЛ e de та в. š e кш, КЕ ER № uoo. ou 
6 ка  @ аа. 6 re x کے‎ уччу (C ,; 
ка и " и n “ u " и Ёл 7 и я " н Ж и n "n 
8 n "s n ч n n м = a - E и x " н ы 





3 = 


^ 


AUGE 


(n 


4% 4- 
نا «- 


о 





123545678 | 210 NEXT B:NEXT А 
220 IF Hz0 AND R=0 THEN 690 
230 IF Н=0 THEN 250 
240 60508 580 
250 80808 370 
255 PRINT 9 384," 
| 260 PRINT 3 354, "ENTER YOUR MOVE" 
а 270 PRINT: INPUT R 
275 PRINT 9 354, * 
280 5-):1-1 
COMPUTER: | ۲ ۱ | 290 IF R=0 THEN 350 
АТЫМ 11 HUMAN & | 300 IF КА! OR R88 THEN 260 
310 1 
220 M=INT(R/10) 
330 N-R-101H 
340 60508 580 
150 60508 370 


к-- 
з 
п 


RI 


bd RS ва 


ہے٭ 
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And here's the Listing of ROMTHELLO: 


10 REM ROMTHELLO 
20 6070 740 


50 PRINT 9 384,"HY MOVE” 360 GOTO 50 
40 S=Z:T=X:H=0 370 REN PRINT BOARD 
380 20:0 


50 РОК A=2 ТО ۶:۶0” В=2 TO 9 
50 IF A(A,B)<>46 THEN 210 


390 SOUND RND(0)t30,1 
395 SOUND RND(0)150,1 


70 0=0 
80 FOR C=-1 ТО 1:FÜR 05-1 TO | 400 PRINT 9 50," 12342578" 
90 K=0:F=A:G=B 450 FOR 852 ТО 9:PRINT B-1;" "; 


440 FOR D-2 TO 9 
470 PRINT CHR$(A(,D));" "; 

480 IF à(B, D) =Х THEN С=С+1 

490 IF A(B,D)-2 THEN H=H+1 

500 NEXT D 

510 PRINT B-1 

520 NEXT B 

5:0 PRINT" 12345678" 

540 PRINT 

550 PRINT 3 480,"COMPUTER ";C;" НОМАМ ";H 
570 RETURN 

580 FOR C=-1 TO 1: РОК D=-1 TO 1 

590 ۲ 


100 IF А(Е+С,6+0) OS THEN 120 

110 KsK*1:FzF4C:6-64D 

120 БОТО 100 

130 IF МЕС, 640) ОТ THEN 150 

140 D=D+K 

150 NEXT D:NEXT C 

160 IF A=2 OR A=9 OR B=? OR B-9 THEN 08-042 

170 IF A=3 OR 4-8 OR B-3 OR 8-8 THEN 0-0/2 

180 IF (8-2 OR 4-9) AND (B-3 OR 8-8) THEN 0-0/2:6070 190 
185 IF (855 ОК А=8) AND (B-2 ОК B-9) THEN 02 
190 IF (КН OR ۸۷0)۵(),3؛‎ AND Q=H) THEN 210 

200 H=Q:M=A:N=B 
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~ 600 IF A(F*C,B4D) CS THEN 630 
510 F-F4C:6-64D 
620 GOTO 600 
650 IF A(F*C,B4D) <> T THEN 670 
640 АЦЕ, 6) =Т 
650 ТЕ M=F AND N=6 THEN 670 
580 Е=Е-С:6=6-0: 6070 640 
570 NEXT D:NEXT C 
580 RETURN 
690 80808 370 
700 IF COH THEN PRINT "I'M THE CHAMP!" 
710 IF НУС THEN PRINT "YOU'RE THE CHAMP" 
720 IF H=C THEN PRINT "IT'S А DRAW" 
730 END 
740 CLS 
750 X-88:2-48 
760 DIN A10, 10) 
770 FOR B=! TO 1۵:۴08 C=1 TO 10 
780 IF ВОТ AND COL AND 8:۶10 AND COT0 THEN АСВ, С) -46 
790 NEXT C:NEXT B 
800 (5,5) -X:At5, 6) =} 
810 А(6,5)=1:А(5,6)=1 
820 Р=0 
830 60508 370 
840 GOTO 30 


90 











LIFE 


There are some 'classic' computer programs, 
ones which found widespread acceptance the 
moment they were announced. In the classics 
category I would place HUNT THE WUMPUS, ELIZA 


and ТРЕ» 


LIFE was invented by John Conway, of Cambridge 
University, Late in 1970. The program simulates 
the birth, death and growth of cells in a 
closed colony. Rather than breeding 
indiscriminately Like fruit flies until all 
available space and food 15 consumed, the 
entities within the colonies of LIFE proceed in 
a most orderly fashion. 


The entities live on a grid (measuring. 15 by 
15, in this case) іп accordance with the 


following rules devised by Mr Conway: 


— every pall has eight neighbours, and the 
state of these eight determines the fate of 
that cell in the next generation 


— if a cell has two, or three, neighbours 
(no more, no Less) it will survive into the 
next generation 


— if there are three surrounding cells, 
and the place on the grid being checked is 
empty, а new cell will be born in that cell in 


the next generation 


— if there are four or more neighbours, 
the cell will not survive to the next 
generation 
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With the aid of these simple rules, 
startling colony patterns evolve, 
very quickly, others settle down into a single 
shape, ог into two or three shapes that cycle 
in subsequent generations, 


some very 
Some die off 


Here are a few generations from one run of 
CONWAY'S COLONY, as we've called Our version of 
LIFE: 


90000 00000 0090 9000 оороо 00000 00000 06090 вое 5229 45490 00000 00000 00000 0990€ 06000 00000 00000 90906 00000 00000 00003 esse? 00000 0000 6000 00000 voces LI 


ОЕМЕКАТТОМ 1 


X X X Ж X X X X K x 

X Ж Ж Ж Ж K Ж 
X Ж Ж X X Ж Ж Ж Ж 

Ж Ж Жж K Ж Ж Ж Ж 

Ж Ж Ж X Ж X X x 

$ X Ж X X Ж Ж Ж 
X Ж X Ж Ж 

Ж Ж Ж Ж ж X Ж Ж Ж X Ж 

Ж Ж X x X ж ж ож Ж Ж 
Ж Ж K k Ж Ж Ж Ж Ж 

X X X X X ж Ж X Ж Ж 

Ж Ж Ж Ж Ж Ж X 
X Ж Ж x Ж Ж 
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ttn pests‏ ٭ 


Ж 


Ж 


GENERATION 2 
x X x 
Ж 
Ж 
Ж Ж 
Ж K Ж 
" 
Ж 
Ж X X 
X Ж Ж Ж X 


t 


sesse tn جو‎ 


GENE Ra T ТОМ 


ЗЕ 


Ж 


2 


A 
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GENERAT I ON 4 


X X x 
| Ж Ж 
| Ж x X x 
Ж Ж 
tg X x 
| X x 
Ё | X X x 
Ж Ж 
| : ^ а 4 
| GENERATION 50 
Ж 
| ж x X x 
| Ж x 
| хх | 
Ж 
| X š 
| 
X X x 
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СЕМЕКАТТОМ ٥ 


" 

Ж K Ж 

Ж Ж Ж 
K Ж Ж 
Kk Ж Ж 
Ж 


LR 


You'll see in the Last generation there are 
three lines each of three cells. These аге 
called 'traffic Lights' because they go from: 


ж Ж 
ші = "90 ty * tp FFF and sp оп... 
x * 


You can see the first traffic Light (as * * *) 
at the bottom of generation five. The groups of 
four are stable units, which stay as they are 
from generation to generation, unless other 
cells touch the group from the outside. There 
are a number of shapes such as these which 
often occur in LIFE programs. You're Likely to 
become familiar with them as you continue to 


run the program. 


As you can see (Lines 80 to 140) the original 
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colony is generated at random. Опсе you've 
become familiar with this version of the 
program, you might Like to try and rewrite it 
во that you can enter your own colony. You'll 
find when you do this that a balanced pattern, 
such as a couple of diamonds, is more Likely to 
evolve in an interesting way than are the 
purely random colonies. 


10 REM CONWAY'S COLONY 
20 (15 


30 COLOR 2,1 
50 DIM A(15,15) 

bû DIM Bt15,15) 

70 621 

80 FOR Х-2 TO 14 

90 FOR Y=2 TO 14 

110 ТЕ RND(O)}.4 THEN A(X, №) = 
120 B(X, УЗ=А(Х, ¥) 

130 NEXT ¥ 

140 NEXT X 

150 BÜSUB 330 
180 +1 

170 FOR X-2 TO 
180 FÜR Ү-2 TO 
190 C=0 

200 IF A-1, Y-1] 
210 IF A(X-1,Y)=1 THEN C=C+1 

220 IF А(Х-1,1+1)=1 THEN С=+1 

230 IF A(X,Y-1)=1 THEN C=C+1 

240 IF A(X, Ye) 21 THEN СЕСН1 

250 IF A(X+1,Y-1)=1 THEN СЪС 

260 IF A(X+1,Y)=1 THEN С=С+1 

270 IF A(X+1,Y+1)=1 THEN С=С+1 

280 IF A(X,Y)=1 AND СОЗ AND CO2. THEN ВХ, Y) =0 
290 IF A(X,Y)=0 AND C=3 THEN BU, Ү)=1 

300 NEXT Y 


4 
4 


=] THEN б-(%1 
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$10 NEXT X 

520 6010 150 

550 PRINT 9 9,"GENERATION ";Б 
340 SOUND (5/2+1),2 

550 PRINT:PRINT " "a 

590 FOR X-2 TO 14 

400 FOR Y-2 TO 14 

410 AUX, Y) BO. Y) 

420 IF &(X,Y)21 THEN PRINT "£ "; ELSE PRINT " "5 
440 NEXT Y 

450 PRINT:PRINT " " 

450 NEXT X 

470 RETURN 
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NIMGRAB 


This isa game which seems 888۷ at first, but 
is the very devil to play and win. The program 
was prepared for this book by Glen Pringle. 


You and the wily computer take it in turns to 


each move. This Limit does not Change within a 
game, although it Changes from round to round. 


The winner is the person who forces the other 
Player to remove the Last object. 


Once you see it in action, you'll understand 
how to Play it. Then you Can start working on 


Perfecting a method of actually beating the 
Computer, 


10 REM NIMGRAB 

20 CLS 

30 Mz0:EzO: I-RND(8) +14 

40 IF-24INT(Z/2)22 THEN 12141 

50 Hz34RND(2) 

50 PRINT "THE MAYINUM ҮШ CAN GRAB IS*H 
70 GOSUB 270 

80 IF E20 THEN PRINT ×۷0 TOOK"E", AND I TOOK"Q 
30 FOR K=1 TO 7 

100 PRINT Ks: IF RND(10)28 THEN PRINT 
110 NEXT K 

120 БОЗИВ 27 

130 PRINT "AND НОМ MANY WILL YOU GRAB?* 
155 P$zINKEYS 

140 E=VAL(INKEY$) 

130 IF ЕІ OR ЕН OR برع‎ THEN 140 


160 PRINT:PRINT"SO YOU WANT TO ۳٤ 
170 1-1-Е 
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180 GOSUB 270 1 
IF 1)1 THEN 6070 5 

2 022-1- INTC(GZ-1) / (НИН? -INT(RND (2) ) *INT (RND (2) ) 
210 IF 841 OR G>H THEN 200 
220 60508 270 

50 121-8 nex 
ш IF 151 THEN PRINT'I GRABBED THE LAST ONE 50 YOU WIN!!":EN 
250 60508 270 

260 БОТО 60 

270 PRINT | 

280 PRINT ЗАННИНИНИНИЯНИИИИ 

290 PRINT 

300 FOR 0-1 TO 500:NEXT 0 

310 RETURN ۱ 

320 PRINT "YOU GRABBED THE LAST ONE 

330 PRINT ,"SO I WIN!!":FOR 221 TO 500: МЕХТ 3 
249 SOUND 16, 4:500 165,2: 500) 13,4:SOUND 18,2:50 б 


350 SOUND 15,6: ЕКО 


= 2 

1024 06%, 

99 8 s 
7141 40%, 
(74%0 
115% 





LAS VEGAS HIGH 


! 
Pulling th 
reels will wu уена 


e t 


, are relat 
| | ед 
Combinations Coming up А 


е various 


the chatte = 

du отриђег k 

Poverty) unfg| Е ii your wealth [or 
| or 


The pro 
gram n 
Pringle, bande кс m 


| book 
required from you sponses 


through the responses 


и REM LAS VEBAS HIGH 
¿U 60508 1110 : REM INITIALISE 


50 BOSUB 870 : RE 
: REH 
(0 ова 54 PLAYER INPUT 


» г ss A = E SLOT MACHINE 
OY IF CASH}? 
иа 500 THEN 299 

80 REM #1441 

70 REM BROKE 

100 REM titty 

110 60508 410 

120 PRINT "THAT'S THE 
130 PRINT "gy ONCE HIG 
140 GOSUB 410 
150 PRINT "YOU? 
160 60508 410 
170 PRINT PRESS AVF үр Үй 


180 PRINT "HAVE 
AN 
190 PRINT азаа On 


END OF THE LINE. » 
НТУ GAMBLER...» 


RE STONE, FLAT BROKE! 1» 


WD LIKE Тр 


"۰ 


100 


EERE سے‎ - ва 
~ سام سس سے‎ € RÀ li oe пе mt ptt hlc 





210 A$-INKEYS 
220 IF AS<>"Y" AND AS<>"N" THEN 210 
230 IF A$="¥" THEN RUN 
240 PRINT:PRINT "ОК, PUNTER..." 
290 60508 410 
260 PRINT "THANKS FÜR THE GAME!" 
270 END 
280 REM )))) ۱۶ 
290 REM ВКОКЕ THE BANK 
500 REM )))) 71 
310 60508 410 

520 PRINT "WELL DONE, БАМВСЕК!!" 

330 60508 410 

340 PRINT "YOU'VE REACHED OUR HOUSE LIMIT" 
350 PRINT "50 WE'LL HAVE TO THROW YOU QUT 
360 PRINT "PEOPLE WITH LUCK LIKE YOURS GIVE" 
580 PRINT "OUR CASINO A BAD NAME....... : 
590 GOTO 160 
400 REM 754 

410 REM DELAY 

420 ВЕКИ 

450 РОК Р=1 ТО 1000:NEXT P 

440 PRINT: PRINT 

450 RETURN 

450 НИИ 

470 REM DELAY TWO 

480 REM 14 

490 РОК P=1 ТО 1000: НЕТ P 

200 RETURN 

510 REM )) 1 

320 REM ÜPERATE SLOT MACHINE 

350 КЕННЕН 

340 CLS 
50 60508 410 


640 PRINT п/АААЛАЛАЛАЛАЛАЛААЛААЛАЛАЛАЛАЛАЛҮй 
7 


0 PRINT " $"; 


= 
uJ 
с 
J 
t 
м) 
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580 FOR M=1 TO 3 

990 60508 460 

600 A=RND (46) 

610 IF A2 THEN PRINT 5$ (4) £C (M) =] 

620 IF А»! AND Acs THEN PRINT АФ (5); :С(М) z2 

650 IF 455 AND ACL? THEN PRINT В I 1:C(UD =3 

640 IF ۸+11 AND Ac20 THEN PRINT ۸۶)2( :С(М) 24 

530 IF 8519 AND رویغ‎ THEN PRINT АФ (5) 5 С (0) 25 

660 IF 8930 THEN PRINT 1$ GA СИ) =6 

670 PRINT A'1:80UND. 31,1 [^ 

680 NEXT M 

670 GOSUR 410 

700 NIN=0 

710 IF C(1)+0(2)+C (3) =3 THEN 1220 

720 IF С(1)=0(2) AND C(3)=C(2) AND C(2)22 THEN 1240 
730 IF С(1)=0(2) AND [{3)=[(2) AND C(1) AND C(2)<>3 THEN 1250 
740 IF C(1)-C(2) gp C(1)=C(3) OR COD SC) THEN 1280 

750 IF C(3)22 THENPRINT"A BELL AT THE END IS 4 BONUS! ":WINSWIN+. 6 
760 IF С(1)=3 AND L(3)23 THEN PRINT“AN APPLE AT EACH END 15 5000" 
765 IF C(1)=3 AND C(3)=3 THEN WIN=WIN+. 5 


770 IF C(1)24 AND C(2)=3 AND C(1)24 THEN 60508 1270: WIN=WING, 4 
780 60508 410 


790 WIN=INT(WINSBET) 
800 IF ИТМО THEN PRINT "AND YOU'VE НОМ WIN"! ":CASH-CASHegIN 


810 IF WIN=0 THEN PRINT "AND YOU'VE LOST 5 ВЕТ: CASH CASH-BET 
820 BÜSUB 410 


830 IF CASH)O THEN PRINT "50 NOW YOU HAVE $"CASH 

840 GOTO 450 

850 REM 

860 REM 14481484881 

870 REM PLAYER INPUT 

880 REM пити 

890 (15 

700 60508 410 

710 IF [А5Н<200 THEN PRINT "HI THERE, GAMBLER!" 

920 IF CASH >299ANDCASH« 400 THEN PRINT "YOU'RE DOING WELL TONIGHT" 
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H ү", 
930 IF С(А5Н2599 AND CASH(900 THEN iS 001/0 ; 
BE IF вон A سن‎ ыл "E FATES ARE BEING"; 
940 IF CASH>B99 AND САЗНА 
945 IF CASH>899 AND САСН‹ 1200 THEN PRINT le ge ds P 
950 IFCASH?1199 THENPRINT"IT 15 50 GOOD TO 5 


960 60508 470 ТВОРЫ 
970 PRINT:PRINT "YOU Н ü 

980 PRINT:INPUT “HOW NUCH DO YOU WANT 10 jd ae 7 
799 IF BET>CASH THEN PRINT "YOU AIN'T GOT 


1000 60508 410 l 
1010 PRINT "OK, SIR, €"BET"IT 81 
1020 60508 410 | 
1030 PRINT "PRESS THE SPACE BAR TO PLAY 
1040 IF INKEY$<>" " THEN 1040 
1050 РОК T=1 Т0 40 
1060 PRINT ТАВ{Т/2); "1444184 STAND BY 1444824 
1070 PRINT 
1080 NEXT T 
1090 RETURN 
1110 REM INITIALISE 
1130 CLS | 
1140 DIM 1$ (6) ,С(6) 
1150 CASH=250 
1150 FOR 821 TO ó 
1170 READ A$(E) 
1180 NEXT B 
1190 RETURN | 7 ۱ 
1200 DATA "SAPPLES", "SCHERRYA" , "SBELL&","! 1۱: 
2 ТА *<<LEMOND>", "ТІРШІМ11" м w 
ү К BARS! |": GOSUBA LO: PRINT THAT'S JACKPOT STYLE!! 
1250 WIN-WIN*9:60T0 750 
1240 PRINT "THREE وی ھت بس و ال‎ (23 
1250 PRINT "THREE OF A ٭*0"‎ 0 j 
1260 PRINT ">> A PAIR وو‎ D) 
ç ; ELL 
1270 PRINT "THAT OLD 'CHERRY,BELL, | i 
1280 PRINT "COMBINATION I5 ONE OF MY FAVORITES!":RETURN 
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SWITCHEROO 


In Switcheroo, you're presented with the digits 
1 to 9 arranged in a random order. You have to 
get them into the 123456789 order in as few 
moves as possible. 


You enter your moves as numbers, and the 
computer performs a  'switcheroo' using the 
number you've entered. The program was prepared 
for this book by Glen Pringle. 


10 REM SWITCHEROO 

20 CL5:B=B+1 

50 PRINT:PRINT"PLEASE STAND BY..." 
40 60508 100 

50 60508 220 

60 IF A$="123456789" THEN 390 
70 М=М+1 

80 GOTO 50 

70 END 

100 Hz1:X20 

110 Ag="" 

120 FOR T=1 TO 9 

150 L=RND(9) +48 | 

140 051 


160 IF (KT THEN 950+1: 6070 150 
170 А$=А$+СНА$ (L) 
180 PRINT A$ 
190 PRINT:SOUND 1,1 
200 NEXT T 
210 RETURN 
220 REM PRINT QUT 
230 IF М»! THEN 260 ELSE CLS 
240 PRINT:PRINT:PRINT 
_ 250 PRINT "MOVE NUMBER"M 


150 IF MID$(A$,0, 1) :CHRS(L) THEN 130 b 
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260 7,0 
270 PRINT@256,A$:SOUND 31,1 


280 PRINT:PRINT"NHICH NUMBER TO SWITCHEROO?" 


290 IF INKEY$ <>"" THEN 290 
300 C$=INKEY$ 

510 RzVAL (C$) 

320 IF Ré1 OR R28 THEN 300 
430 В$="" 

340 FOR Т=9 ТО К STEP -1 
550 B$-B$4MIDS (A$,T, 1) 

360 NEXT T 

570 AS=LEFT$(A$,R-1) +88 

380 RETURN 

590 PRINT:PRINT:PRINT 

400 PRINT A$ 

410 PRINT:PRINT:PRINT 

420 PRINT"YOU DID IT, CHAMP!" 


430 PRINT:PRINT"AND IT TOOK JUST"M"MOVES... 


455 IF B=1 THEN НЕМ 

440 IF МН THEN НМ 

450 PRINT "LOW SCORE-"H 
460 FOR І-1 TO 5000: МЕХТ 
470 БОТО 20 
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Here's one game against the program: 
MANCALA 


MANCALA is one of the series of 'pebble—in-pits' OE سب‎ " 
games often called names Like OWARI, AWARI and i ۱ 


КАГАН. The game is played from Africa to the 
Phi Lippines, and now moves into your 


home, via по жоош EP @ G 
a very clever computer opponent, қ - қ Е 
У A Н С DEF 
71 е ет 7% 2% E) 
AS уои сап See from the Sample game which š 5 0 4 ч 
follows this introduction, the game begins with 


C 
(2 
SiX 'pits' (the letters A to Е ang L t6 р] 1 


“т” ici 25 4 4 7 
Ж = T ES + (5 
facing each player, Your pits are those from | a L K d I не 
to G. Each pit contains three seeds at the m | = F 
я я ; š әс» А E » D Е 
beginning of the дате, Choos i ng any pit on your 1 + 3.5 ко 
| side, уОи pick up all the seeds from it, and | тт ww | 
| then proceed Lo move i 


you've landed in 
become yours, and аге transferred to your 
'home'. Your home is the zero to the left of 
the board, the Computer's 





| ~ = Е 
B.C D E 
home is the zero Бо а ч 0 4 4 1 
the right. : " | О 
L - 
` шу 6. Ü) L) 
р аи C) - 
The game continues until either side ig E J I H G | 
completely empty, so the Player cannot move At вв Е Ú E F 
this point, the player with the largest number : ñ ж д о n Z 
in hi | ы. = 
of seeds in his ог her home is the winner М 
t- Es 1 1 
; ке: с Са R 
The COmputer plays well in this game, but with Ч : ы „т е 
| Practice you'll Learn to defeat it. Just don't 7 
| expect too many victories in the early stages. 
| 
| 107 
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This is Later in the game: 
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And this is how it ended: 
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THOT? THE ENT me sue = 
ЧАТ” THE END OF THE GAME 180 C=C +1 
1 A руља и 180 
А 2 7 5 . LFL + 
: : : D EF 210 IF 2212 THEN 1=1 - 12 
EE i 9 Q 1 ) 215 FLAG=0 
ак xL. = ~ 220 IF 196 THEN IF A(1-6)000 AND А(1)50 THEN FLAG=1 
а 4 ооо | | 225 IF FLAG=1 THEN IF A(1-5))8M THEN GM-C 
diia: I H 8 ۳ 227 FLAG=0 
+ 230 IF 247 THEN IF А(1+6) (20 AND A(Z)=0 THEN FLAG=1 
| 235 IF FLAG=1 THEN IF А(1+6)}БМ THEN GM=C 
240 IF С<6 THEN 180 
0ہ‎ "EG : 250 IF 6М=0 THEN 370 
SCORE? 19 22 <YOUR SCORE n 260 C-GM 
—— . 270 PRINT 3 34,"L'LL MOVE FROM ";СНЕ$ (64+), " " 
YOU" RE T -- ~ | | £ 7 ; 
HE WINNER! 272 SOUND RND(0)420+1,3:S0UND RND(Q)$20*1,1:SQUND 5,2 
| 275 PRINT 9 34," (^ 2 
And here's the Listing of MANCALA: | 280 FOR 1=С TO САС) 
10 REM MANCALA “ЫР 290 IF 1312 THEN А{1-12)=й(1-12)+1 
15 REM SHOWING STRUCTURED P 300 IF 1515 THEN А(1)=А{1)+1 
16 REM PROGRAMMING TECHNIQUES | ٤ 


320 Z=C+Ą(C)-1:IF 1312 THEN 1-1-12 
330 AIC} =0 

140 B(2)=B(2)4A(13-Z) :A (13-2) =0 

350 RETURN 

550 )))))) 71 

370 REM NON-SCORE MOVE 

380 W=0 

390 WW + 1 

400 CE INT(RND() 46) +1 

410 IF МГ) <> 0 THEN 440 

420 IF W(20 THEN 390 

430 GOTO 510 

440 PRINT 3 34,"I'LL MOVE FROM ";CHR$(&44C) 

442 SOUND 6, 1:5OUND 3,1:SOUND RND(O)#20+1,3:SOUND RND(0)32041,1 
445 PRINT 9 34," . 0. 

450 FOR 1= С Т0 С+А(С) 

440 IF 2615 THEN ۶۰۱۵ 


20 60518 930:REM INITIALISE 
50 60508 770:REM PRINT BOARD 
40 FOR Р=| ТО 500:NEXT P:REM DELAY 
50 GÜSUB 150:REM COMPUTER MOVE 
50 GOSUB 770:REM PRINT BOARD 
70 GOSUB 620: КЕМ HUMAN MOVE 

80 CHz0:HW-Q 

70 FOR C=1 TO 12 

100 IF C¢7 THEN CW=CW+A (C) 

110 IF C56 THEN HW=HW+A(C) 

120 NEIT C 

130 IF СМ=0 OR HW=0 THEN 510 

140 GOTO 30 

150 REM НЕН 

160 REM COMPUTER MOVE 

170 GN=0:C=0 


110 111 





-- +-> 


470 IF 2512 ТНЕН A(2-6)=A(7-4) +1 
480 NEXT 7 
490 А(С)50:60Т0 550 
500 REM Пипни 
210 REM END OF GAME 
920 GOSUB 770 
330 PRINT 3 54, "THAT'S THE END OF THE GAME” 
240 SOUND RND (0) #20, 1: SOUND AND (0) 120, 2 
550 IF В{])›В{7) THEN PRINT 3 480, "YOU'RE THE WINNER! " 
580 IF B(1)4B(2) THEN PRINT 3 480, "I'M THE WINNER!” 
370 IF B(1)-B(2) THEN PRINT 9 480, "IT LOOKS LIKE A ۰ 
580 PRINT 9 418, "MY SCURE»" B (2); " 481); "¿YOUR SCORE" 
500 БОТО 600 
610 КЕННЕН 
620 REM HUMAN HOVE 
650 PRINT 2 34, "WHICH PIT TO START WITH?":PRINT 2 66," " 
555 INPUT A$:PRINT 2 54," ки 
640 PRINT 3 754^ ": 8-45] (4$) -64 
550 IF B47 OR 8212 THEN 430 
660 CO=B: Z=B+A(B) + ЈЕ 1212 THEN 1=1-12 
570 M-4(7) 
580 FÜR 7=В TQ B+A(R) 
690 IF 2312 THEN A(1-12)28(2-12) +1 
700 IF 2413 THEN НО ЕЙ (2) 44 
710 МЕТ 7 
720 BAG) -1: ЈЕ 2212 THEN 222-12 
730 IF М=0 THEN Bit) =B(1)#A(13-2) 0013-1)- 
740 А(С0)<0 
750 RETURN 
760 REN 
770 REN PRINT BOARD 
780 PRINT 3 128," д р СОЕ F'iPRINT " 17 
800 FOR C=1 TO ¢ 
819 PRINT ACH; 
820 NEXT C 
830 PRINT: PRINT B(1);" "B(2):PRINT " "J 
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840 FOR C=12 TO 7 STEP -1 
B50 PRINT А(С); 
860 NEXT C | 
' fa ta 
RINT:PRINT Ек: | 7 
- ip DELETE THIS LINE IF YOU DON'T WANT PRINTER 


E = 34,"I MOVE FROM ";CHR$(5446M) 
910 С=6М 

920 71 

930 REM INITIALISE 

940 CLS 

960 DIM A(12),B(12) 

970 FOR C=1 TO 12 

980 А(С)=3 

990 NEXT C 

1000 RETURN 


| his 
irst few Lines of t 
k back to the firs ux 
E ЕТ see that it uses peii s 
اک‎ techniques as outlined on pag 
а in the TIC ТАС TOE program. 
? 
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APPENDIX ONE - ШНАТ IS A COMPUTER 


You don't need to know what a computer is, ог 
how it works, to make use of 1+ and get 
pleasure out of using it. In much the same Way, 
you don't need to able to repair a car in order 
to drive it. However, having some knowledge of 
the parts of the machine you're using — whether 
it's a car, a video recorder or a computer — is 
Likely to add to your pleasure in using it. 


CONTROL 
EX 












OUTPUT 






MEMORY | 


This diagram shows the five basic parts of a 
computer. We'll start by Looking at the Left- 
hand box, the INPUT. This refers to any means 
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which exist for getting information into the 
computer from the outside world. It can be a 
keyboard, a microphone (if the computer is 
equipped to understand speech), or the computer 
can read the contents of a magnetic disk, 
magnetic tape (Like the cassettes your computer 
uses) or from punched tape. 


The next box across is the heart of the system, 
the Arithmetic Logic Unit, or ALU for short. 
This Carries out the mathematical work 
required, and makes decisions. 


Above it you can see the CONTROL UNIT which 
controls the flow of information through the 
computer. Below the ALU in our diagram is the 
memory which holds not only the program and the 
results of computations while the program is 
running, but also the 'intelligence' of the 
machine. Here are the intructions the computer 
needs in order to be able to do such things as 
control the TV screen and interpret the word 
SOUND in а program in order to make a noise. 
We'll be Looking at memory ina Little more 
detail shortly. | 


Оп the right-hand side of the diagram is the 
OUTPUT. This, as you've probably realised, 
refers to any means by which the result of the 
computer's deliberations is fed to the world 
outside the machine. The output can be via a 
number of things such as a TV Screen, a printer 
ог a speech unit. 


In many computers today, the CONTROL UNIT and 
the ALU come together on a single chip, called 
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a CENTRAL PROCESSING UNIT, or CPU. This means 


that only input, output and a power supply have 
to be added to turn the CPU into a computer. 


50, in its most primitive form, the computer is 
a device which operates upon numbers under the 
control of other numbers. The computer has a 
central processing unit which actually carries 
out the numericaL operations, a memory where a 
mixture of instructions and data is Stored, and 
some way of getting information in from the 
outside world, and of sending results out. 


Computers contain two sorts of memory. The 
first kind is fixed when you buy the computer. 
This sort ОР memory is called  'Read Only 
Memory' because all the computer can do is read 
it and act in accordance with the instructions 
written in this memory area. It is called ROM 
for short. 


As well as ROM, your computer (in common with 
all other computers) has memory which can be 
modified when the computer is running. This 
memory — called 'Random Access Memory' (or RAM) 
- is the place where the program you type in, 
ог load in from a tape, resides. RAM contents 
are lost (the computer, in effect, 'forgets') 
when the power is turned OTT. 


So, ROM is fixed memory, which tells the 
computer how to do what it needs to do when 
running (such as how to read your depressions 
on the keyboard, and how to ада numbers 
together), and RAM is changeable memory which 
holds the program you are currently running and 
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the intermediate results of that program, 


When you program your computer, you do so іп 
the computer Language known ав BASIC. The 
advantage of BASIC to human beings 15 that it 
is reasonably Like English, so is Fairly easy 
to work with, However, the Computer does not 
understand BASIC. It only understands, and 
thinks in, numbers. So, within the ROM is the 
means by which the computer changes a BASIC 
Program Line, such as A = RND(0)*20, into а 
sequence of numbers it can understand. 


AS well as the kind of 'built in' memory we've 
been talking about, there 15 external memory, 
which is often called mass Storage, with the 
peripherals used to Store this memory being 
known as MASS STORAGE DEVICES (or MSD). The 
cheapest MSD, the one you probably use with 
your computer, is the domestic cassette 
recorder, Although tape is cheap, 15 is slow 
and ' 8600885618, that is, you have to search 
through a tape item by item in Order to find 
the one you want. 


The other most common sort of MSDs are those in 
the disk Family. FLOPPY DISKS are flexible 
disks, about the Size of a 45 rpm record, 
Coated with magnetic material, They аге 
permanently sealed in Square envelopes within 
which they are free to rotate. The disks are 
used in conjuction with 'floppy disk drives! 
which contain magnetic heads which can detect 
and create magnetic patterns on the disks, 


HARD DISKS, which are Larger and more expensive 
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than floppy ones, can hold much more 
information than Ғларрівв. A typical floppy can 
hold betwsan.100K алй: ВООК. Hard disks can hold 


‘hundreds of thousands of kilobytes оғ 


information. 
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APPENDIX TWO - GLOSSARY OF TERMS 


Accumulator — part of the computer's logic unit 
which stores the intermediate results of 
computations 


Address - a number which refers to a Location, 
generally in the computer's memory, where 
information is stored 


Algorithm — the sequence of steps used to solve 
a problem 


Alphanumeric - generally used to describe а 
keyboard, апа signifying that the keyboard has 
alphabetical and numerical keys. А numeric 
keypad, by contrast, only has keys for the 
digits one to nine, with some additional keys 
for arithmetic operations, much Like а 
calculator | 


APL - this stands for Automatic Programming 
Language, a Language developed by Iverson in 
the early 1960s, which supports a Large set of 
operators and data structures. It uses a non- 
standard set of characters 


Application software — these are programs which 
are tailored for a specific task, such as word 
processing, or to handle mailing Lists 


ASCII - stands for American Standard Code for 
Information Exchange. This is an almost 
universal code for letters, numbers and 
symbols, which has a number between 0 and 255 
assigned to each of these, such as 65 for the 
Letter A 
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Assembler - this is a program which converts 
another program written in an assembly Language 
(which is a computer program in which a single 
instruction, such as ADD, converts into a 
single instruction for the computer) into the 
Language the computer uses directly 


BASIC — stands for Beginner's All-purpose 
Symbolic Instruction Code, the most common 
Language used on microcomputers. It is easy to 
learn, with many of its statements being very 
close to English 


Baud - a measure of the Speed of transfer of 
data. It generally stands for the number of 
bits (discrete units of information] per second 


Benchmark - a test which is used to measure 
some aspect ofthe performance of a computer, 
which can be compared to the result of running 
a similar test on a different computer 


Binary — a system of counting in which there 
are only two symbols, О and 1 (as opposed to 
the ordinary decimal system, in which there are 
ten symbols, 0, 1, 2, 3, 4, 5, 6, 7, В and 9). 
Your computer 'thinks' in binary 


Bit - ап abbreviation of 'binary digit', the 
smallest discrete unit the computer can 
understand, and having a value of 0 or 1 


Boolean Algebra - the algebra of decision- 
making and Logic, developed by English 
mathematician George Boole, and at the heart of 
your computer's ability to make decisions 
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Bootstrap - a program, run into the computer 
when it is first turned on, which puts the 
computer into the state where it can accept and 
understand other programs 


Buffer - a storage mechanism which holds input 
from а device such as keyboard, then releases 
it at a rate which the computer dictates 


Bug - an error in a program 


Bus - a group of electrical connections used to 
Link a computer with an ancillary device, ог 
another computer 


Byte - the smallest group of bits (see bit) 
which makes up a computer word. 860878 У 8 
computer 15 descibed as being eight bit or 
'16 bit', meaning the word consists of a 
combination of eight or sixteen zeroes or ones 


Central Processing Unit (CPU) - the heart of 
the computer, where arithmetic, logic апа 
control functions are carried out 


Character code - the number in ASCII (see 
ASCII) which refers to a particular symbol, 
such as 32 for a space and 65 for the letter 


"А! 


COBOL - stands for Common Business Orientated 
Language, a standard programming. Language, 
close to English, which is used primarily for 
business 


Compiler — a program which translates a program 
written іп а high Level (human-Like) Language 
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into а machine Language which the computer 15 
able to understand directly 


Concatenate — to add (adding two strings 
together is known as 'concatenation!) 


CP/M - these initials stand for Control 
Program/Microcomputer, an almost universal disk 
operating system developed and marketing by 
Digital Research, Pacific Grove, California 


Data — a general term for information processed 
by a computer 


Database – a collection of data, organised to 


permit rapid access by computer 


Debug — to remove bugs (errors) from a program 


Disk - a magnetic storage medium (further 
described аз a 'hard disk', "'floppy disk' ог 
even 'floppy') used to | store computer 


information and programs. The disks resemble, 
to a Limited extent, 45 rpm sound records, and 
are generally eight, five anda quarter, or 
three and a half inches in diameter. Smaller 


'microdisks' are also available for some 
systems 
Documentation - the written instructions and 


explanations which accompany a program 


DOS - stands for Disk Operating System (апа 
generally pronounced 'doss'), the versatile 
program which allows a computer to control a 
disk system 
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Dot-matrix printer — a printer which forms the 
Letters and symbols by a collection of dots, 
usually on an eight by eight, or seven by five, 
grid 


Double-density — adjective used to describe 
disks when recorded using a special technique 
which, as the name suggests, doubles the amount 
of storage the disk can provide 


Dynamic memory — computer memory which requires 
constant recharging to retain its contents 


EPROM - stands for Erasable Programmable Read 
Only Memory, a device which contains computer 
information in a semi-permanent form, demanding 
sustained exposure to ultra-violet Light to 
erase its contents 


Error messages - information from the computer 
to the user, sometimes consisting only of 
numbers ог a few letters, but generally of a 
phrase (such as 'Out of memory!) which points 
out a programming or operational error which 
has caused the computer to halt program 
execution 


Field — А collection of characters which form a 
distinct group, such as an indentifying code, a 
name or a date; а field is generally part of a 
record 


File - А group of related records which аге 
processed together, such as an inventory file 
or a student file 


Firmware - The solid components of a computer 
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System are often called the ‘hardware! the 
programs, іп machine-readable form on disk or 
cassette, are called the 'software! and 
programs which are hardwired into a 69611 
аге gigs 'firmware'. Firmware can be altered, 
о а imited ех i : 
Шы tent, by software іп some 


Flag - this is ап indicator withi 

l within a rogram 
with the 'state of the flag' (i.e. the ders it 
holds) giving information regarding a 


particular condition 
Floppy disk — see disk 


Flowchart - this is a written Layout of program 
structure and flow, using various shapes, such 
as a rectangle with sloping sides for a 
computer action, апа a diamond for а computer 
decision. А flowchart is generally written 


before any lines of 
program are enter i 
the computer BH. пара 


FORTRAN -a high Level computer Language, 
generally used for scientific work (from 
FORmu la TRANs lation) 


Gate са computer 'component' which makes 
decisions, allowing the circuit to flow in one 
direction ог another, depending оп the 
conditions to be satisfied 


GIGO - acronym for 'Garbage In Garbage Ои&'! 
suggest ing that if rubbish or wrong data is fed 
into а computer, the result of its processing 
of such data (the output) must also be rubbish 
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Global — a set of conditions which effects the 
entire program is called 'global', аз opposed 
to ‘local! 


Graphics — a term for any output of computer 
which is not alphanumeric, or symbolic 


Hard copy - information dumped to paper by a 
printer 


Hardware — the solid parts of the computer (see 
'software' and 'firmware') 


Hexadecimal — a counting system often used by 
machine code programmers because it is closely 
related to the number storage methods used Бу 
computers, based on the number 16 as opposed to 
our  'ordinary'! number system which is based on 


10] 


Hex pad - 8 keyboard, somewhat Like a 
calculator, which 15 used for direct entry of 


hexadecimal numbers 


High-level Langauges - programming Languages 
which are close to English. Low-Level Languages 
are closer to those which the computer 
understands. Because high-level Languages have 
to be compiled into a form which the computer 
can understand before they are processed, high- 
Level Languages run more slowly than do their 
Low-Level counterparts 


Input - any information which is fed into а 
program during execution 
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1/0 - stands for Input/Output port, а device 
the computer uses to communicate with the 


outside world 


Instruction ~ an element of programming code, 
which tells the computer to carry out a 
specific task. An instruction іп assembler 
Language, for example, is ADD which (as you've 
probably guessed) tells the computer to carry 
out an addition 


Interpreter — converts the high-level ('human- 
understandable') program into a form which the 
computer can understand 


Joystick - an. analogue device which feeds 
signal into a computer which is related to the 
position which the joystick 15 occupying; 
generally used in games programs 


Kilobyte — the unit of language measurement; 
one kilobyte (generally abbreviated as К) 
equals 1024 bytes 


Line printer - a printer which prints a 
complete line of characters at one time 


Low-Level Language - a language which is close 
to that used within the computer (see high- 


Level Language) 


Machine Language - the step belowa Low-Level 
Language; the Language which the computer 
understands directly 


Memory — the device or devices used Бу а 
computer to hold information and programs being 


(2/616 3244 1 NM | 2. 
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currently processed, and for the instruction 
set fixed within a computer which tells it how 
to carry out the demands of the program. There 
+0 two types of memory (see RAM and 
ROM 


Microprocessor - the 'chip' which Lies at the 
heart of your computer. This does the 
"thinking" 


Modem — stands for MOdulator/DEModulator, апа 
is a device which allows one computer to 
communicate with another via the telephone 


Monitor — (a) a dedicated television-screen for 
use ав a computer display unit, contains по 
tuning apparatus; (b) the information within a 
computer which enables it to understand апа 
execute program instructions 


Motherboard - a unit, generally external, which 
has slots to allow additional 'boards' 
(circuits) to be plugged into the computer to 
provide facilities (such as high-resolution 
graphics, ог  'robot control') which are not 
provided with the standard machine 


Mouse - a control unit, slightly smaller than a 
box of cigarettes, which is rolled over the 
desk, moving an on-screen cursor in parallel to 
select options and make decisions within a 
program.  'Mouses' work either by sensing the 
action of their wheels, ог by reading a grid 
pattern on the surface upon which they are 
moved 


Network — a group of computers working in 
tandem 
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Numeric pad — a device primarily for entering 
numeric information into a computer, similar to 
a calculator 


Octal - a numbering system based оп eight 
(using the digits 0, 1, 2, 3, 4, 5, 6 and 7) 


On-Line  - device which is under the direct 
control of the computer 


Operating system - this is the 1519 boss' 
program or series of programs within the 
computer which controls the computer's 
operation, doing such things as calling up 
routines when they are needed and assigning 
prioritories 


Output - any data produced by the computer 
while it is processing, whether this data is 
displayed on the screen or dumped to the 
printer, or is used internally T 


Pascal - a high level language, developed in 
the Late 1960s by Niklaus Wirth, which 
encourages disciplined, structured programming 


Port - an output or input 'hole' іп the 
computer, through which data is transferred 


Program — the series of instructions which the 
computer follows to carry out a predetermined 
task 


PILOT - a high Level Language, generally used 
to develop computer programs for education 


НАМ - stands for Random Access Memory, апа is 
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the memory on board the computer which holds 
the current program. The contents of RAM can 
be changed, while the contents of ROM (Read 
Only Memory) cannot be changed under software 
controL 


Real-time - when a computer event is 
progressing in пе with time in the 'real 
world', the event is said to be occurring in 
real time. An example would be a Program which 
showed the development of a colony of bacteria 
which developed at the same rate that such a 
real colony would develop. Many games, which 
require reactions in real time, have been 
developed. Most ‘arcade action! programs occur 
in real time 


Refresh — The contents of dynamic memories (see 
memory) must receive periodic bursts of power 
in order for them to maintain their contents. 
The signal which 'reminds' the memory of its 
contents is called the refresh Signal 


Register — a location in com i 
puter memor 
holds data die s 


Reset F a signal which returns the computer to 
the point it was in when first turned on 


ROM — see RAM 

RS-232 - a standard serial interface (defined 
by the Electronic Industries Association) 
which connects a modem and associated terminal 
equipment to a computer 


S-100 bus - this is also a standard interface 
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(see RS-232) made up of 100 parallel соттоп 
communication Lines which are used to connect 
circuit boards within micro-computers 


SNOBOL - a high Level language, developed by 
Bell Laboratories, which | uses pattern 
recognition and string manipulation 


Software — the program which the computer 
follows (see firmware) 


Stack - the end point of a series of events 
which are accessed on a Last in, first out 
basis 


Subroutine — a block of code, ог program, which 
is called up a number of times within another 
program 


Syntax - as in human Languages, the syntax is 
the structure rules which govern the use of a 
computer language 


Systems software — sections of code which carry 
out administrative tasks, or assist with the 
writing of other programs, but which are not 
actually used to carry out the computer's final 
task 


Thermal printer - a device which prints the 
output from the computer оп  heat-sensitive 
paper 


Time-sharing - this term is used to refer to a 


Large - number of users, on independent 
terminals, making use of a single computer, 
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which divides its time between the users in 
such a way that each of them appears to have 
the 'full attention' of the computer 


Turnkey system — a computer system (generally 
for business use) which is ready to run when 
delivered, needing only the 'turn of a key' to 
get it working 


Volatile memory — a memory device which Loses 
its contents when the power supply is cut off 


Word processor - a dedicated computer (or a 
computer operating a word processing program) 
which gives access to an ‘intelligent 
typewriter’ with a large range of correction 
and adjustment features 
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Now that you've mastered simple BASIC 
programming on your Dick Smith VZ200, what do 
you do next? 


The answer Lies in this book. Tim Hartnell, the 
co-ordinator of the М2200 Users' Club, and 
co-author of the book GETTING STARTED WITH YOUR 
VZ200, turns his attention to a number of 
Fascinating areas of computer programming, 
inc Luding: 


THE SECRET OF ANIMATION AND MOVING 
GRAPHICS 


HOW TO USE MODE 1 
MAKING MUSIC 

PEEK AND POKE 
As well as the 'Lessons', there are fifteen or 
SO great games programs you're sure to enjoy 
running, including ROMTHELLO,  V-WING SPACE 
BATTLE, CHECKERS, LAS VEGAS HIGH and the 

prehistoric game, MESOZOIC ATTACK, 


This book is the key to moving beyond simple 
BASIC programming with your Dick Smith \7200. 








